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This publication describes the Auto Report Feature of the 
following RPG II compiler programs: 


@ IBM System/3 Model 10 Disk System RPG II Program 
(Program Product 5702-RG1) - 


@ IBM System/3 Model 6 RPG II Program (Program Pro- 
duct 5703-RG1) 


-@ IBM System/3 Model 12 RPG II Program (Program 
Product 5705-RG1) 


e@ IBM System/3 Model 15 RPG II Program (Program 
ErOdues ey 


The coding for and operation of the RPG II Auto Report 
Feature are described for programmers with basic exper- 
ience in RPG II. Also, in Appendix B, the internal opera- 
tion of the Auto Report Feature is diagrammed for the 
use of IBM service personnel and customer personnel 
with maintenance responsibility. 


The System/3 Model 8 is supported by System/3 Model 10 
Disk System control programming and program products. 
The facilities described in this publication for the Model 

10 are also applicable to the Model 8, although the Model 8 
is not referenced. It should be noted that not all devices 
and features which are available on the Model 10 are 

_ available on the Model 8. Therefore, Model 8 users should 
be familiar with the contents of JBM System/3 Model 8 
Introduction, GC21-5114. 


PREREQUISITES 


This manual assumes that you are able to code RPG II 
programs that include such basic operations as: using 
disk files, listing records on a printer, simple calculations, 


_ and group totals. If you do not have this experience, you 


can receive basic instruction in RPG II through IBM 
education courses or programmed instruction courses, or 
by reading Jntroduction to RPG IH, GC21-7514. 


Preface. 


Related Publications 


The following manuals are available for further reference 
concerning subjects discussed in this book: 


@ IBM System/3 RPG II Reference Manual, SC21-7504 


e IBM System/3 Model 6 RPG II Reference Manual, 
-SC21-7517 


@ IBM System/3 Models 6, 8, 10, and 12 System Genera- 
tion Reference Manual, GC21-5126 . 


© IBM System/3 Model 15 Sten Generation pene 
Manual, GC21-7616 
System Control Program (SCP) Reference Manuals 


@ JBM System/3 Model 6 Operation Control Language 
and Disk Utility Programs Reference Manual, GC21-7516 


© JBM System/3 Model 10 Disk System Control Program- 
ming Reference Manual, GC21-7512 


© IBM System/3 Model 12 System Control Programming 
Reference Manual, GC21-5130 


® IBM System/3 Model 15 System Control EROS unt 
Reference Manual, GC21-5077 


Note: The availability date for the Model 12 manuals is not 


the same as for this manual. Orders sent shortly after the 
edition date of this manual may be considered invalid. 
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HOW TO USE THIS MANUAL 





This manual is divided into three parts. Part I describes a series of examples to illustrate 
the basic Auto Report coding. By studying the reports shown in the examples along with 
the Auto Report coding that produced them, you can learn the results of each Auto | 
Report coding entry. In this way, you can code your own Auto Report programs in the 
shortest possible time. | | 


Part II contains a complete sample program. When you have completed Part I, study this 
program to see how the Auto Report Feature is used to code a complete program. The 
procedures for running the program, the complete printed listing, and the report produced 
as output by the program are shown so that you will know what to expect when you 

code your own Auto Report Program. 


Part III contains the complete reference information for using the Auto Report Feature. 


Three appendixes contain further information: Appendix A contains programming tips 


and aids for RPG II programmers using the Auto Report Feature; Appendix B describes 
the organization and internal operation of the Auto Report Feature for maintenance 
personnel; Appendix C lists and explains the Auto Report error messages. 





Introduction 


WHAT IS THE AUTO REPORT FEATURE? 


The RPG II Auto Report Feature is a program that operates prior to the RPG II compiler. 
Auto Report accepts special, simplified specifications and standard RPG II source speci- 
fications and uses them to generate a complete RPG II source program. The special Auto 
Report statements control the three separate functions of Auto Report: 


* AUTO Page *AUTO 


Headings Output 





Provides a simpli- Provides a method 
fied method of fied method of of copying cata- 
coding page coding output loged specifications 
headings. specifications. from a source li- 


brary to include 
them in an RPG II 
source program. 


WHAT !S THE PURPOSE OF THE AUTO REPORT FEATURE? 
The RPG II Auto Report Feature has two primary purposes: 


1. To enable the beginning RPG II users to easily code a program to produce a simple 
report. 


2. To help experienced RPG II programmers code programs faster and to provide them 
with additional features not available in RPG II. 


The Auto Report Feature can reduce the time required to plan and code RPG II programs 
by freeing the programmer from many tasks, such as repetitive coding of specifications in 
different programs, planning the format of reports, and coding specifications to accumu- 
late and print totals for numeric fields. By simplifying programming tasks so that the 
programmer makes fewer errors and by providing a set of diagnostics in addition to the 
RPG II diagnostics, Auto Report can reduce debugging time. 


The RPG II Auto Report Feature includes three separate functions that can be used in any 
combination: 


* AUTO Page Headings 
Auto Report simplifies the specification of page headings. The programmer does not 
have to specify conditioning indicators, spacing, and end positions. Auto Report auto- 


matically centers the title and prints it at the top of each page with a date and page 
number. 7 
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*AUTO Output 


Auto Report simplifies the specifications for a report that may include columns of data 
with column headings and totals. On one output specification line, the programmer can 
name a field, specify a column heading to appear above the field, and specify that several 
levels of totals be accumulated for the field. The programmer does not have to code 
separate RPG II output specifications to print the column headings, detail lines, or total 
lines, or calculation specifications to accumulate the totals. Auto Report assumes edit 
codes if the programmer does not provide them and determines spacing and end positions 
to produce a report with a neatly prepared format. 


Copy 
Normal RPG II specifications and specifications for the *AUTO Page Headings and 
*AUTO Output functions that have been cataloged in a source library can be copied by 

_ Auto Report to be included in the RPG II program generated by Auto Report. You can 
use the Copy function to include frequently-used specifications that are common to 
different programs. You can modify copied file description and input specifications to 
suit each particular program. | 


HOW DOES AUTO REPORT WORK? 


The Auto Report Feature generates a complete RPG II source program that is ready to 
be compiled from the following kinds of input: 


1. An Auto Report Option specification (Figure 1). 


2. *AUTO Page Headings and *AUTO Output specifications you provide in the source 
file. 


3. Standard RPG II specifications you provide in the source file. 
4. Auto Report Copy statements in the source file, with or without modifier statements. 


5. Standard RPG II specifications and *AUTO specifications copied from a source 
library by the Auto Report Copy function. 


Option Specifications 


Source Statement 


Library Name 


Date Suppress (N) 


Work Files (1-9) 
¥ Suppress (N) 





8 9 10 11 t2 13 14 15 16] 17 18 19 20 21 22 23 24 25/26/27428] 29/30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


| © | w 

j= fe 

| fe 

1c |{o Form Type 
|} Source (P/C/B) 


Figure 1.: Auto Report Option Specifications 


‘| Date 


If you use the Auto Report Copy function, Auto Report copies the designated specifica- 
tions from the source library. Then, if you provide specifications for the *AUTO Page 
Headings and *AUTO Output functions, Auto Report generates normal RPG II specifica- 

tions (Figure 2) for the final RPG II source program. When a complete RPG II source 
program has been generated, Auto Report calls the RPG II compiler. 
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Figure 2 (Part 1 of 2). Using *AUTO Specifications, Auto Report Generates Standard RPG II Specifications 
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Figure 2 (Part 2 of 2). Using *AUTO Specifications, Auto Report Generates Standard RPG II Specifications 


Calculations to 

roll totals for 
SOLDVA and VALUE 
fields 


Page heading 
(includes date 
and page number) 
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Detail output 
specifications 


Total output 
specifications 


Figure 3 shows the general method of operation of the Auto Report Feature. Additional 
information about the method of operation and internal organization of the RPG II Auto 
Report Feature is provided in Appendix B. 


Input 








RPG II and 
Auto Report 

specifications in 
source file 


(optional) 


RPG II and 
Auto Report 
specifications 
in source 
library 








RPG If Auto Report Feature 


Merges specifications copied 


from a source library with 
specifications from the 
source file. 


Diagnoses Auto Report 
coding; produces a listing 
unless the LOG OFF OCL 
facility is used (except 
Model 15). 


Generates RPG II source 
specifications; places 
generated source program 
in a workfile. 


Optionally, punches the 
generated source program. 


Optionally, catalogs the 
generated RPG II source 
program in a source 
library. 


Output 


Auto Report listing 

@ Merged Auto Report 
specifications 

@ Diagnostic messages 


Generated 
RPG II source 
program in 
workfile 
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Generated RPG II 


source program 
punched in cards 


(optional) 





Generated 

RPG II source 
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in source library 









Calls the RPG 11 compiler if 
there are no terminal errors 
in the Auto Report coding. 





Figure 3. Operations of the Auto Report Feature 
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*AUTO Page Headings and *AUTO Output | : 


Examples 1 through 4 explain how Auto Report is used in 
generating report page headings and such output specifica- 
tions as: column headings, detail lines, and total lines. 


*AUTO Page Headings *AUTO Output 


Procedure 


v 


Produce the sales report shown below using the [| Code normal RPG II file description and 


*AUTO Page Headings and ~AUTO Output © 
functions of Auto Report. 


input specifications for the job. 


2 | Code *AUTO Page Headings to produce 
a one-line page heading that includes 


date and page number. 





e Code *AUTO Output to produce one- 
line column headings, detail report lines, 
and final totals. 





Letters 
refer to e 
fields on | 
the oppo- 
site page. 
10/26/71 SALES REPURT FOR ANY CQ. PAGE 1 
EL} £zY [) IE TF {qj i 
REGION BRANCH ITEM DESCRIPTION SALES AMOUNT ON-HAND VALUE 
l 17 AG7TTOLT 2-TON TRUCK 5 25,000.00 2 10,000.00 
1 17 AG7705S PICK-UP 10 20,000.00 l 2000.00 
l 17 AP6545B CAMPER 2 8,000.00 
l 22 AG7701T 2-TGON TRUCK 2 10,000.00 l 5,000.00 
l 22 AGT705S PICK-UP 4 8,000.00 l 2,000.00 
3 25 AG6545B CAMPER 10 40,000.00 5 20,000.00 
3 25 AP6549P 1/4 TON TRUCK 20 30,000.00 6 9,000.00 
141,000.00 48,000.00 * 


cE Code RPG II file description and input specifications. 
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File Type 
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Fite Format 
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ie ee he 


Field Name Contents 
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REGION Sales region in which the branch 
office is located 


DESC Description of the sales item 
SOLDOY Quantity of the item sold 
~SOLDVA Total value of the items sold 
ONHAND | Quantity of the item remaining on hand 
~ VALUE Total value of the items remaining on hand 


Hoo Gf Cf eo 


Symbolic 
Device 
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Code “AUTO Page Headings specifications. 


ry Enter an H in position 15 and “AUTO in 32-36 

to request an Auto Report page heading. Up to 

five page heading lines can be described. The 

system date is printed on the left and the page Ey} 
number on the right of the first heading line on 

each page. The date and page can be suppressed 

by placing an N in position 27 of the Auto 

Report Option specification. sala Machings Corpereion 


RPG OUTPUT - FORMAT SPECIFICATIONS 
12 75 76 77 78 79 80 


Program 
punching [Oreoric | | | | | tt | ral [ears 


The title information is centered by Auto 
Report; do not enter end positions in 40-43. 


Fields and table/array elements can also be 
used. 










Date 


Be eee) ee ese ee le eal 


Program 





Programmer 


Sterling 
Sign 
Position 


Line Filename 
















i : 
D) When Outi Indicators inaction 23- 3.31) are 


When Space and Skip entries (positions 17-22) | left blank, Auto Report page headings are 

are left blank, skip to line 06 is assumed for printed on each page (conditioned by 1P or 
the first heading line; single spacing is done overflow). If no overflow indicator is defined 
between heading lines; double spacing after. for the printer file, Auto Report assigns an 
the last heading line. (See Example 4 for an unused overflow indicator to the Punter file. 
example of multiple page heading lines.) ) | : 
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Program secgaas punch of {| {| { ft { ff 
Programmer | 
Pe eit ane anata ect — | 
; . Plus Sign ila 
Line Filename =e Y oC Edit Position 
a — 
é Constant or Edit Word 
E PEEL eee eee cea 
}of2| {o| i as eaSa PCLCEEEL 
ofa} Jo a | Wimy col. titi 
ojs| |o a eles C3 Pletal lI SIs 
jo|s| fo LE TOM | | | . 
fo fe]. Jo z ; Wei) | tt ddd Column headings are § 
{jol7} {o| ; 4 tt] tt {i{f] entered on the same 

ofa} |o RTIATITION | \ | line asthe fields _—| 
jo[s| [o | SIH over which they 
Jo] Jol i mil") | | tt appear in the report. 
abl tol TT TT Ee! HAND | {Fr : 
1 
1 





Enter D in position 15 and “AUTO in : PPPoE 


32-36 to describe an Auto Report with 
detail lines. ‘The record identification 

indicator 01 will condition printing of 
the detail lines. 





Enter an A in position 39 to cause fields to be 
accumulated. Auto Report generates (1) total fields 
and calculations to accumulate the totals and (2) 

total output specifications to print the totals. 




























10/26/71 SALES REPURT FOR ANY CO. PAGE 1 


REGION BRANCH ITEM DESCRIPTION SALES AMOUNT | ON-HAND<—{sJ-—> vatue 
1 17 AG7701T ~2-TON TRUCK 5 25,000.00 | 2 10,000.00 
1 17 AGT705S_PICK-uP 10 20,000.00 1 2,000.00 
1 17 AP6545B CAMPER 2 8,000.00 
Aa 22. AGTT01T 2-TON TRUCK 2 10,000.00 1 5,000.00 
1 22 AGTT05S_ PICK-UP “ 8,000.00 1 2,000.00 
3 25 AG6545B CAMPER 10 40,000.00 5 20,000.00 
3 25. AP6549P 1/4 TON TRUCK 20 30,000.00: 6 9;000.00 


141,000.00 48,000.00 * 






_ All numeric fields for which a blank, 
B, or A is specified in position 39 
are edited by the K edit code unless 
a different edit code is specified. 





Auto Report formats the report so that 
column headings and data are neatly 
spaced and centered on each other. 
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*AUTO Output 


Procedure 


Expand sales report from Example 7 to include cf Code file description and *AUTO speci- 

three levels of totals: fications as in Example 7. 

1. Total for each branch Add control level indicators to the ~ 
input fields BRANCH and REGION. 





2. Total for each region 


3. Final total 





The ~AUTO Output function can also be used to produce a group printed report. 
index entry group printing, for a discussion and examples of group printing. 


IBM International Business Machines Corporation Form X21-9094 


Printed in U.S.A, 
RPG INPUT SPECIFICATIONS 


punching {orepnic | | | | | {| | 
we tee |e te Es | 


Record Identification Codes 


1 2 75 76 77 78 79 80 


Page Program : 
identification 


Date 






Program 


Programmer 

















Sterling 
Sign 
Position 








Filename Field Name 





Form Type 

Option (O) 

Record Identifying Indicator 
or ee 

Decimal Positions 

Contro! Level (L1-L9) 

Matching Fields or 

Chaining Fields 

Field Record Relation 





Character 











> 








~ 


f=[oloe/epele|e|( steels 
is eee he a pe 
i Ee ee a 

ND 
Se ae Ss ce oS 









Since two control levels are defined, SOLDVA 
and VALUE fields (see opposite page) are 
accumulated to two levels of totals (branch 
and region) and a final total (LR). 
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Form X21-9090 


IBM International Business Machines Corporation 
Printed in U.S.A. 


RPG OUTPUT - FORMAT SPECIFICATIONS 
12 75 76 77 78 79 80 


Oates : Program 
Punching Page l] Identification 


nstruct 
Program : sd 





Programmer 





As in Example 7, an A in position 39 of the output 
specification causes SO LDVA and VALUE to be 
accumulated. 


Output Indicators 















we 
3ign - 


Sterling 
Sign 










Before 
After 





Stacker Select/Fetch Overflow (F) 





fafa) ee 
ees Tee Be 


cert ECoTEEEEe EEE 
Mee Te 


Asterisks (*) are printed by Auto Report 
to the right of generated total lines to 
aid in identifying them. !f you want to 
suppress the asterisks, enter N in position 
28 of the Auto Report Option specitica- 
tion. 


9} each total line and an additional blank 

1{ line before the lowest level total and 

1] before the final total. If you enter 

1{ syacing and skipping values on the D- 

'| *AUTO specification, they apply to the 
detail print line only. 


Line Filename wi Position 
3 g g|, 8/8] in 2 No Yes 3 Z = Zero é 
€ z 3 2 HHT 8 : Output 5 No No 4 Suppress 
& F Gla i Constant or Edit Word 
3.4 5/6 9 15|16]17] 18119 20}21 22 32 33 34 35 26 37/38 ho |40 41 42 43] 44145 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70]71 72 73 74 
ol} lolPRrwrieR Wit ITI titi tt tt | mawirol LTT TIA TT TTT TTT TT 
elt tol TTT TTT TTT TET TTT TTT TET TV islaiclels| eteitoaiz] tT I TT TT TET 
lst fol TTT TTT TTT TTT TTT TE TTT TTT TTT Alo lat ica TT TT TT TE LT TTT 
oll Tol TTT TTT ToL it TT pearl TTT TT EEE ET EET 
els Pol T TTT TT TTT TTT eleviom TTA TT leelerion TTT TL TTT TT TE 
olel Je BRianceH | 17! 11 leRawewl iii ttt TTT tT 
| vce Rosot classe blenk ine arer [Luinemald CCT Pirie | CCC 
° ae _ cit MDIESICIR P76 falta) ais al pee bal pare leato 
D sp 
D z 
AWD A 
UE 


















10/26/71 SALES REPORT FOR ANY CO. PAGE 
REGION BRANCH ITEM RESCRIPTION SALES AMOUNT \ ON-HAND VALUE 
NUMBER 
1 17 AG7T701T 2-TNN TRUCK 5 25,000.00 2 10,000.00 
1 17 AG7705S_ PICKNUP 10 20,000.00 l 24000.00 
1 17 AP6545B CAMPER 2 8,000.00 
53,000.00 12,000.00 
1 22 AGT701T 2-TON TRUCA 2 10,000.00 1 5,000.00 
l 22 AG7T7T05S_ PICK-UP 4 Be 000.00 1 2»000.00 
18,000.00 7,000.00 
3 25 AG6545B CAMPER N 40,000.00 5 20,000.00 
3 25 AP6549P 1/4 TON TRUCK 20 30,000.00 o 9,000.00 
70,000.00 29,000.00 
Ss 70,000.00 29,000.00 
Total fields are always two positions : : 
longer with the same number of decimal 
141,000.00 48,000.00 






positions as the original fields. 
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Problem 


Expand the sales report from Examples 7 and 2 
to contain: 


LY Group indication for REGION and 
BRANCH fields 


[:j Second column heading line 


{dj Literal (constant) on the final total line 


*AUTO Output 


Procedure 


Code file description and input specifica- 
tions as for Example 2. 


, 


y, Code *AUTO Output with: 


Output indicator on field 
description specifications. 


Ej C in position 39 and a literal in 
45-70 


= Cl R in position 39 and a literal in 
45-70 





File Description Specifications 


File Type Mode of Processing 




















File Addition/Unordered 


































: a Length of Key Field or Extent Exit Number of Tracks 
File Designation of Record Address Fietd = for DAM for Cylinder Overfiow 
uw 
End of File Record Address Type > Name of Number of Extents 
a : 
; Type of File Symbolic |) Label Exit 
Filename Sequence Organization Y a 
As File Format or Additional Area a Core Index ea 
Qa E Condition 
Q |= ‘ 
O}2 Starting = 
54 55 56 57 58 59/60 61 62 63 64 65/66 68 
role ol CTL 128 ele lalate eS ea 
IBM Internatioral Business Machines Corporation : aes X21-9094 
* , rinted in U.S.A. 
RPG INPUT SPECIFICATIONS 
1 2 78 76 77 78 79 80 
Date Program 
7 P 
punching |Graohic | | | | | | |_| mer] |, “Gems 
presen ibaa ee TT ttt 
Programmer 
s Record Identification Codes Field 
5 Field Location Indi 
se Me Wa di g pie 
—_ a oan 
2. 5 =|s | 3 
| Ee A a] 3 || 2 Sertin 
Line ; Filename = 5 g | 2 3 Field Name 3 So} P Sign 
_— o i: D wa Le P. iti 
2 3 2)2 § $ s\< ¥ From To [5 2122 § Plus |Minus! or merry: 
E s 1215/2 Qs Q]8 eZ] & £15=| x 
e Co I= Ali o AIT ao els 3 c oS a 
f 5 i218) 8 3d 3d 5]]a a 8 |s6/ i 
3 4 5/6 9 10 11 12 13 14415 16 26427 33)34 41[42]43144 45 46 47/48 49 50 5 
ols] |r PECEEECEEEEEE EE de SECECeCL Lat seeigemael CCCEELEL CELL 
A | \7a Méloriowcial | |i ti TT 
Ff) 
ELE PEEECLEEEEELE T -PCLCRRL Bet Ese CrCEELELECLECL EEL 
i 
ole] |r rt) ita en ai FT} T | late | i2ii@sioicbiayl | Tit LL 
ol] | Pe tee ai TTT | lal | pivtisiokpival LTTE LETT EL 
ole] | STE ater ea TLL i3s! | Belomapwio | Litt tit Ltt 
ole! [| Peele ear ae TTT Bit | si2iviiciviél (TTT Tt 
140 I 
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IBM | fa International Business Machines Corporation Se uek 
RPG OUTPUT - FORMAT SPECIFICATIONS 


12 75 76 77 78 79 80 
P 
punching | Sraoric | | | | | | | Page ae 
Identification 
eee Ie oi 


Date 2 




































































Program 
Programmer 
= oe Poston i ne ee x |. | Field ea Peston 
g c |t |Z = Zero 
: DIM Suppress 
2 ARLE Constant or Edit Word 
3 4 S7f677 8 9 1011121 1 22 2? 32 48 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 7 
| [oR TIER LTT ETT TTT EE Peas ae 
ola{ fol TTT LT HE das Rerorin i Litt itt tt L iy 
ols} fol TET TT Ht ed L Eee se PCR HHT 
olet fol TT LT % BERE SSA ERE RRE RRR See 
els ort TL R ‘EIGL PCE 
ole! Jo} | TL BR | amc | LTTE TITEL 
SUE EEREen O, TEM LE TS ae 
ofa} joy TT Ltt i Sees 
ole] fol Tt EL Delsic| | | gL RIB! Sle een seals blll 
fo fol | | | slolelaiqy| | PCL sates! Lee 
it} ol er soclval fal ||| | |Amouwi7l | TLL tt LE EEL 
rea lomHawoll | | 1) | ow-blawo 1! Tilt tt ttt ttt td 
se nna aaae eee 
Output indicators can be used on field TET Bese ae elcis 


description specifications. {n this example, 
control level indicators are used to condi- 
tion BRANCH and REGION so that they 





One or two additional column heading 
lines can be specified by entering aC in 
position 39 with the heading information § 
in 45-70 | 





are printed only for the first record of 
the corresponding control group. This 
print suppressing of common fields 
(group indication) reduces repetitive 
information. 














10/26/71 REPORT FOR ANY CO. 








The literal FINAL TOTALS makes § 
that line easy to find. Tospecify [| 
information to appear on the final 
total line, enter R in position 39 
with a literal in 45-70 or a field 
name/table name/indexed array | 
name in 32-37. The-information is § 
printed two spaces to the left of 
the leftmost total on the line. If 
more than one such specification 
is used, the literals and fields are 
printed from left to right in the 
order they are specified in the 
program. 


AG6545B CAMPER 10 40,000.00] | 
AP6549P 1/4 TON TRUCK 20 30,000.00 










REGION B8RANCH/ He ETER 4; SALES AMOUN 











AGT7T01T 2-TON TRUCK 5 25,000.00 
AGTTO05S PICK-UP 10 20,000.00 
AP6545B8 CAMPER 2 8,000.00 
























_ AGTTOLT 2-TON TRUCK 2 10,000.00 
AGT705S PICK-UP 4 8,000.00 


















Y,UUUeUU 











29,000.00 * 





29,000.00 ** 





48,000.00 
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*AUTO Page Headings 


4 Procedure 


Expand the sales report from Examples 1-3 to — Code file description and input specifica- 
include a cross-totals column and: L tions as in Example 3; add an overflow 
indicator to the printer file. 
A new report page for each region 
Code RPG II calculation specification for 


Two heading lines on each page cross-total. 


A field in a page heading line Code *AUTO specifications: 


Identification of branch and region totals F.4 Output indicators on page heading 
specifications 


Two heading lines per page 


heading specification 


Fields and literals on L1-L9 total 


| Cc Use of a field in an “AUTO page 
Dy lines (1-9 in position 39) 


LL/L8/71 : SALES REPORT.FOR ANY CO. PAGE 


ci REGION 1 <~—fd 


BRANCH ITEM ‘OESCRIPTION SALES SALES VALUE ON ON-HAND VALUE TOTAL 
NUMBER QUANTITY HAND | 


17 AG77O1T 2-TON TRUCK 25,000.00 2 10,000.00 35,000.00 
AG7705S PICK-UP 10 20,000.00 1 27000.00 22,000.00 
AP6545B CAMPER 8,000.00 8,000.00 


AG7701T | 10,000.00 52000.00 15,000.00 
AG7705$ 8,000.00 . 2,000.00 10,000.00 


18,000.00 72000.00 254000.00 * 


71,000.00 19,000.00 90,000.00 ** 


11/18/72 SALES REPORT FOR ANY CO. 
REGION 3 


BRANCH ITEM ~ DESCRIPTION SALES SALES VALUE ON ON-HAND VALUE TOTAL 
NUMBER QUANTITY HAND 


25 AG6545B CAMPER 10 40,000.00 5 20,000.00 60,000.00 
AP6549P 1/4 TON TRUCK 20 30,000.00 6 9,000.00 39,000.00 


BRANCH 25 TOTALS 70,000.00 29,000.00 99,000.00 * 


REGION 3 TOTALS ~ 70,000.00 29,000.00 99,000.00 ** 


COMPANY TOTALS — 141,000.00 481000.00 189,000.00 *## 





Note: Compare matching letters ( [:} ) on this and the opposite pages to see the Auto Report coding to obtain 
this report. : 
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IBM 


Date 
Program 


Programmer 


Factor 1 


Control Level 
(LO-L9, LR, SR) 





The headings are printed on a new 
page when the region number 
changes (L2) or when overflow 
(OF must be defined 


occurs (OF). 
for the printer file in file descrip- 
tion specifications.) 


A second Auto Report page head- 

ing is specified. Since spacing is 
not specified, space one is done 

| after the first and space two after 

the second. Since no output indi- 

cators are specified, the second 

heading will be conditioned like 
the first. 






put Indicators 















International Business Machines Corporation 


RPG CALCULATION SPECIFICATIONS | RPG II calculations can be among 


the input statements for Auto 
Report. This specification calcu- 
lates a cross-total of the sales and 
on-hand values. (The placement 

of the calculation in relation to 
calculations generated by Auto 
Report is described under the index 
entry generated RPG I! program.) 


Table (Factor 2) is 
56 57158 59160 61 62 63 64 65 66 6? 68 69 70 71 72 73 74 


Form X21-9090 
Printed in U.S.A. 


Operation Factor 2 


International Business Machines Corporation 


RPG OUTPUT - FORMAT SPECIFICATIONS 


12 75 76 77 78 79 80 
Program 



















X = Remove 
Plus Sign 
Y = Date 
Field Edit 
2 = Zero 
Suppress 





Sterling 
Sign 
Position 






















ce The contents of the 
— Ci REGION field are 
eae | | | | printed on the second 
2 | | ||) page heading. : 
7 rL ETT ome | 
umdee TTC TALL 
elscaza7ziom’| |i ii iii itty ti 
aces | IIIT TTT 
fadamriziny'| |i ttt tt iy tet ttt et 
slaclés| viaicivel | TTT ITT 


OMA PIE 
0 ee 
pare Preece TL 


Fields and literals can | 







Ar SST TTT be printed on generated: 

Pkt ITIO\TIAILIS| “| { y—w| | total lines by entering | | 

a mecrow 7 C the number of the con- i 

a Ei Eo roNetael trol level in position 39. ie 

GHRSRRERREE EE 
Ziel fof TTT TTT TET TT ETT | ClolMalaMy [7lo7lAlc|s| ’ 
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Copy 


Examples 5 and 6 illustrate use of the Auto Report Copy 
function to copy specifications from the source library and 
to override copied specifications for a particular job. 


Problem Procedure 


Use the Copy function to obtain specifications cl Catalog the file description and input 
for the sales report below (same as in Example specifications for the SALES file in 
7). 7 the source library. 


Code the /COPY statement in the 
specifications for Auto Report. 


10/26/71 . SALES REPORT FOR ANY CQ. PAGE 


REGION BRANCH ITEM DESCRIPTION SALES . AMOUNT. ON-HAND VALUE 


17 AGTTO1T 2-TON TRUCK 
17 AG7T705S PICK-UP 

17 AP6545B CAMPER 

22 AG7701T 2-TON TRUCK 
22 AG7T705S PICK-UP 

25 AG6545B CAMPER 

25 AP6549P 1/4 TON TRUCK 


25,000.00 10,000.00 
20,000.00 : 21000.00 
8,000.00 

10,000.00 - 5,000.00 
8,000.00 21000.00 

40,000.00 20,000.00 
30,000.00 ~ 9,000.00 


pos 
COFNNOW 


Ne 


141,000.00 48,000.00 
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Catalog specifications for the SALES file in the source library using the Library Maintenance disk utility program 
(see the appropriate system control programming reference manual). 


File Description Specifications 


File Type Mode of Processing File Addition/Unordered 
eaaiaeiaatt Length of Key Field or Extent Exit Number of Tracks 
ile Designation of Record Address Field for OAM for Cylinder Overflow 
End of File Record Address Type Name of Number of Extents 
Label Exit 
Core Index 


‘ Type of File ‘ : i 
Filename Sequence Orsarisetion Device Symbolic 


Fite Format or Additional Area 


Labels S/N/E/M 


Key Field ‘ | Continuation Lines Lines 
Starting 





IBM Internationa! Business Machines Corporation Form X21-9094 
RPG INPUT SPECIFICATIONS] These specifications could be replaced by 


Punching [Grapric | | | | | | |] 4 single statement as shown on the oppo- 
Instruction | punch | | | | | | |] site page if they had previously been 


Programmer ; : cataloged in the source library. 







Date 






Program 




























8 Record Identification Codes : . Field 
3 Field Location . : 
3 > Es 2 Indicators 
= 5 a 6 
m & =}. j= 
2; a ¢ arg ee Sterli 
‘ Se Pie " 2 : = /Svele terling 
: Filename z| |25 Sia %//Field Name 3 |2 3] > . Sign 
a =I16/3 a . 8/8 0 “ul 8 ro | Position 
= 8 Isle = Position S ols To p, =~ |2¢2 & Plus {Minus} or 
= = 13/512 8 gle = £1S"| = 
3 5 isla 8 2 S| n 8 cls S| ‘o 
ua oO 1Z21Ole 5 n}o a 8 =O] uv 











IBM International Business Machines Corporation Form X21-9090 


RPG | OUTPUT- FORMAT SPECIFICATIONS ae 


1 2 75 76 77 78 79 80 





Date Program 
Punching | Grapric | | | | | | ft = 
| Es Page Identification 
Program overt feborel so de fede 
Programmer 


























X = Remove 


Zero Balances 
le Bare eee 






Sterling 


=F Output Indicators eaten Edit Codes 
















eee (eeepc isles Cem Eee? ae Plus Sign oni 
Line Filename : End Yes Y = Date 4 
And = And Boatsn Field Edit - 4 Position 







2 = Zero 
Suppress 












Constant or Edit Word 
2 53 54 55 56 57 58 59 GO 61 62 63 64 65 66 67 


AEN ale t ideals el abana 
melo 
R| lalmyl (clo! [Tt tt tt tt tt TT 

Gy TEEPE Cee 

elrlom | TIT TIT T TTT tit Tt 

Rewer ttf 
Lee 

Le 

el 

ae 



















72 73~«=74 


Zimem i | TILE TTT TTT EL 
DescRiierriom | | iii Ti it tt iy ett 
SIALENS! | TTT TTT TTT TTT EE 
Amoum7 | ||| til tii tT ttt ET 
aaa CECE EEE ei 


(Value iy 


Code the /COPY statement to include the file des- 
B® cription and input specifications. (For a detailed 
description of the Copy function see index entry 
Auto Report Copy Specifications. ) 


File Description Specifications 






File Addition/Unordered 


Number of Tracks 
for Cylinder Overflow 


Mode of Processing 


Length of Key Field or 
of Record Address Field 





File Type 






Extent Exit 
for DAM 


Core Index 






File Designation 

















End of File Name of Number of Extents 


Label Exit 


Record Address Type 
























Type of File 
Organization 
or Additional Area 


Symbolic 
Device 





Sequence 





Filename Device 











Labels S/N/E/M 




















File Format 





File 







Extension Code E/L 


















Q 
& ale = ev | Overflow Indicator Condition 
z O}e = ¥] 5 U1-U8 
€ 2/9 $ Block Record =]r Key Field | Continuation Lines Lines 
3 °o g = Length Length $ a Starting 
; = boas Option Entry 
617 8 9 10 11 12 13 14 18]19]/20 21 22 23124 25 26 2 07 31432 1 42 43 44 4 7 48 49 50 51 52 54 55 56 57 58 SO;60 61 62 63 64 6566167168 6 71 «72473 74 
PRrwiner io || a2) Lele [TIT TTT TT | laetrnirlele TH a 
FPR p 
cr 


IBM International Business Machines Corporation Form X21-9094 
t 


RPG INPUT SPECIFICATIONS | 
12 . 785 76 77 78 79 80 


Date Pro ‘ 
' gram 
| Punching ee lois) . cee 
A ogee eee Pee he Se es newton fe ihe te Shea Speed 


Programmer 





| Field 
The /COPY statement copies file des- ff Indicators 


cription and input specifications for the 
SALES file from the source library mem- 
ber named SALETR. 


Sterling 
Sign 
_ [280 | Position 
Plus |Minus] or 


Filename Field Name 


Position 


Form Type 

Sequence 

Number (3-N) 

Option {O) 

Record Identifying Indicator 
* 

DCIS rositions 

Contro! Level (L1-L9) 

Matching Fields or 

Chaining Fields 

Field Record Relation 


3.4 S/6/7 8 9 10 11 12 13 14/15 16/17/18 119 26[27 28 29 30 31132/33]34]35 3@ 37 28/39] 40/41|42]43]44 45 46 47/48 49 So 51]52]53 4 55 56 57 58/59 60/61 62/63 Gales 66}67 6a}eo 70/71 72 73 74 


oer oe wal Sauer (TTT 


i ff 






The /COPY statement can appear anywhere 
among the Auto Report specifications following | 
the Auto Report Option statement and pre- 
ceding table and array input records. It is con- 
venient to code the /COPY on the Input sheet 
when you want to override copied input speci- 
fications, as in Example 6. After specifications 
have been copied, all specifications are sorted 


into the order required by the RPG 1!| com- 
Be az , | 


- a ~~ nNenmove 






The source library is located 





: ) on disk unit R1. | | 
IBM , | s Corpo 
= : RPG § OUTPUT- FORMAT S$ 
Position 6 of a /COPY 


statement must not ‘ : Eee 











contain a U or an H. 












Sterling 
Sign 
Position 


Plus Sign 
Y = Date 

Field Edit 
Z = Zero 







Field Name | End 
Positon 





Line Filename 






Constant or Edit Word 


51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70/71 72 73 74 


ae staf cla Teaco Fe Ele 
el REPORT 4) tt} 
| laliyl Ico. 17 Tt TT 


49 


oie | ls 


as 
es 
a 


LS1Q [Wy [WS | 


Ff aa Pell 
maces terre 
AMoumT' || tii I TIT TIT 
Scum TCEETEEEEE EEE 
vPicMlelT TTT TT TTT TT TTT TTT 


Te T=T-TeTe Tele Te lTeleleler 
2 Iw [= fofeoleot~faTalao| 
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“4 Procedure 


Override copied input specifications to produce ce Catalog specifications for the eae? 
a report (below) that includes subtotals for file, as in Example 5. 
branch and region. 


Code the /COPY statement. 


Code /COPY modifier statements to add 
control level indicators to BRANCH and 
REGION fields on copied specifications. 


10/26/71 SALES REPORT FOR ANY CO. PAGE 


REGION BRANCH ITEM DESCRIPTION SALES AMOUNT OUN-HAND VALUE 
NUMBER 


17 AGT701T 2-TON TRUCK 25,000.00 10,000.00 
AG7T05S PICK-UP 20,000.00 2,000.00 
AP6545B CAMPER 8,000.00 

53,000.00 12,000.00 


- AGT7TOLT 2-TON TRUCK 10,000.00 5,000.00 
AG7T705S PICK-UP . 8,000.00 2,000.00 


18,000.00 7,000.00 
71,000.60 19,000.00 


AG6545B CAMPER 10 40,000.00 20,000.00 
AP6549P 1/4 TON TRUCK 20 30,000.00 9,000.00 





IBM i International Business Machines Corporation Form X21-9094 ! 
® Printed in U.S.A. 


— RPG INPUT SPECIFICATIONS 


° 1 2 75 76 77 78 79 80 
Cataloged input specifications for the in 7 can eal te] 
SALES file. | 


Field 
Indicators 


Sterling 
Sign 
Position 


Filename Field Name 


Position Position Position 


Number (1-N) 
Decimal Positions 
Matching Fields or 
Chaining Fields 

Field Record Relation 


Option (O) 
Record Identifying Indicator 
ae 


Form Type 
Sequence 
C/2/D 
Character 


a C/z/D 

N Character 
8 

8 

Ww 

oO 

e 

x __Noi 


3.4 5;6]7 8 9 10 41 12 13 14]15 16]171/18]19 20]21 22 23 24 3134]35 36 37 38 
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zl el he 
In order to produce a report that has 
subtotals for branch and region, L1 must 
be assigned to BRANCH and L2 to 
REGION as the specifications are copied 
from the source library. 
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23 ae /COPY and modifier statements. As a result of 
the modifier statements three levels of totals are 
accumulated for the SOLDVA and VALUE fields (L1, 
L2, and LR). 


File Description Specifications 
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Mode of Processing 





File Type 






Length of Key Field or 
of Record Address Field 







File Designation 











Record Address Type 








The field names, BRANCH and 

REGION, identify the input field 
specifications that are to be 
ee | 
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Line Filename Device 





File Format 
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Cataloged file description or input specifications are over- 
ridden as follows (see index entry Auto Report Copy 
Specifications for examples): 
? 
— Entries in a modifier statement override corresponding 
entries in a copied file description or input field speci- 
fication. 






| wiist wt Sf st Set St | S| St OS 
Dis lSloimiNiaim| | 








Blank entries in a modifier statement remain unchanged » 
in a copied specification. 









Ampersand (&) in the leftmost position of an entry in the modifier statement sets the entry to blanks in the 
copied specification. 







New fields can be added to input specifications by adding new input field specifications as modifier statements. 


Modifier statements do not change the cataloged specifications. The modification is only for the program into 
which the specifications have been copied. 
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This sample program is present on the distribution disk 
cartridge containing the Auto Report Feature. You should 
execute the sample program after system generation is com- 
plete to verify installation of the Auto Report Feature. 

(see index entry Running the Sample Program.) 


This sample program illustrates the use of all Auto Report 
features: *AUTO Page Headings, *AUTO Output, and 
Copy. The Auto Report specifications for the job are 
explained. The Auto Report listing, the RPG II listing, 
and the final report are shown. 


JOB DESCRIPTION 


This job prepares a Cash Receipts Register using RPG II 
with the Auto Report Feature. The *AUTO Page Head- 


Sample Program 


ings feature and the *AUTO Output feature are used to 
generate the RPG II output specifications for the report 
and the calculation specifications to accumulate final 
totals for several fields on the report. RPG II calculations 
specifications that cannot be generated by Auto Report 
are included in the Auto Report program to verify the 
discount taken by each customer and to calculate the bal- 
ance due. 3 


the file description specifications for the printer file, 
CSHRECRG, and the file description and input specifica- 
tions for the input file, CSHREC (Figure 4), are cataloged 
as separate members in the source library on disk unit R1. 
The cataloged specifications are included in the program 
by the Auto. Report Copy feature. 
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File Description Specifications 





Mode of Processing 






File Type : 
Length of Key Field or 
of Record Address Field 





File Designation 


End of File Record Address Type 
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Line Filename 






File Format 
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Figure 4, File Description and Input Specifications that 


AUTO REPORT CODING 


Figure 5 shows the RPG II and Auto Report specifications 
that must be included in the Auto Report Program to 
produce the Cash Receipts Register. 


RPG Control Card Specifications 


The control card specification shown in Figure 5, insert A, 
should be included in the Auto Report Program, since it is 
not present among the cataloged specifications (Figure 4). 
None of the control card options are required in this 
program, so the specification need contain only an H in 
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On the Model 6, the block 3 

length entry for CCHRECRG HZ 22 

is 1, the device name is HHH 
TRACTR1. 

ees He 


Form X21-9094 
Printed in U.S.A. 


The file description for the print- 
er file is in the library member, 
$SAUSP1. 

The file description and input 
specifications for the disk file, 
CASHRC, are in the library 
member named $AUSP2. 
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Invoice number 
Invoice date 
Amount owed 
Transaction type 
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Discount taken 
‘Amount paid 
Date paid 

Code 
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e Source Library Members $AUSP1 and $AUSP2. 


position 6 and the Program Identification entry, SAMPLE, 
in positions 75-80. The Program Identification characters 
from positions 75-80 of the H specification are placed in 
positions 75-80 of all specifications in the generated RPG II 
source program. (The use of the Program Identification 
characters by the RPG II compiler is described in the RPG II 
reference manual for your system.) 


/COPY Statements 


The /COPY statements shown in Figure 5, insert B, are 
used to copy the file description and input specifications 
for the job from the source library on disk unit F1. The 
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Figure 5 (Part 1 of 2). RPG II and Auto Report Specifications to Produce the Cash Receipts Register 


first statement copies the file description specification adds an input field definition for the REGION field. As 
for the printer file from the library member named a result of these /COPY statements, the file description 
$AUSP1. The second statement copies the file description and input specifications shown in Figure 4 are included 
and input specifications for the disk file, CASHRC, from in the RPG II source program generated by Auto Report. 


the library member named $AUSP2. A modifier statement 
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Figure 5 (Part 2 of 2), RPG II and Auto Report Specifications to Produce the Cash Receipts Register 


Calculation Specifications 


The calculation specifications shown in Figure 5, insert C, 
are included in the Auto Report program to perform 
special operations that cannot be generated by Auto 
Report. First, the discount allowed for each customer is 
subtracted from the discount taken by each customer. 
Indicator 10 is turned on if the difference is greater than © 
or equal to $1.00. The remaining calculations subtract the 
discount taken and the amount paid from the amount 
owed. 


The order in which these calculations are placed in rela- 
tion to the calculations generated by Auto Report is 


shown in the Auto Report listing of the generated RPG II © 


source program (Figure 7). 
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*AUTO Specifications 


The coding for the *AUTO Page Headings and the *AUTO 
Output features is shown in Figure 5, insert D. Notice 
that the Y edit code is used for the date fields (lines 10 
and 12). Auto Report generates a K edit code for numeric 
fields when an edit code is not specified. No edit code is 
generated for numeric fields when they are described with 
a 1-9 or Rin position 39. A 3 edit code is specified for 
the INVNO field to suppress the printing of the comma 
edit character. 


DIFF is printed on the detail line only if it is $1.00 

or more. Remember, output indicator 10 is used only to 
condition the printing of the field on the detail line;it _ 
does not affect the printing of the generated field on the 
total line. 


The J edit code is used for the AMTOWD field to allow Before the sample program can be run, an RPG II program, 


zero balance to print for that field. $AUSPA, which also resides on the distribution disk pack, 
is compiled by RPG I and executed to build data for the 

Totals are accumulated and printed by Auto Report for Auto Report sample program (Figure 6). After this data 

five fields, as indicated by A entries in position 39. Since has been built, the sample program, $AUSPB, is processed 

an L1 control level is defined in the input field specifica- by the Auto Report Feature, compiled by RPG IJ, and 

tion for REGION which is added to the input specifica- executed to give the report. The listing and output of the 

tions for the CASHRC file (see Figure 5, insert B), sample program should look like Figure 7. 

regional and final totals are accumulated for each field 

which has an A in position 39. The total lines are identi- Successful execution of the sample program indicates that . 


fied by the literals shown in lines 23 and 24 of the *AUTO Auto Report has been installed correctly. 
specifications (Figure 5, insert D). 


RUNNING THE SAMPLE PROGRAM 


The sample Auto Report program and the procedure to 
compile and execute it are on the distribution disk 
cartridge. The sample program must be run after system 
generation is complete and after the generated system on 

F1 has been copied to a backup or tailored system pack 

(see IBM System/3 Models 6, 8, 10, and 12 System Genera- 
tion Reference Manual, GC21-5126, or IBM System/3 
Model 15 System Generation Reference Manual, GC21-7616, 
for procedures for performing system generation). RPG II, 
Auto Report, and the source library procedure to load Auto 
Report must reside on the tailored pack prior to running the 
sample program. 


DATA EOK SAMPLE PROGRAM 


LL243J0NWES HARDWARE 2754107L171L 2375CASH 47 4f 2328607¢11T 
L1352NU-STYLE CLUTHIERS 27967071471 “8 TOTCASH 174 40U00TZ6I1P 


LLRG6MIDL FASHIONS INC 157/1U0471 LOs22CASH 214 214 1050807141T 


L287T4ULUUK INTERIORS 25622070971 6795CASH 136 67950/7231T 
L&274STRcCAMLINE PAPeR INC29703072Z171 27403 548 2338 1705507301P 
23347RTTe-BEST Pens CU 205420/18671 1560 31 LQV007201P 
2552Z21L1MPURTS UF WM 29273072071 79746 1593 1193 3854707271P 
26T23ALRIGHT CLEANERS 19473070772 46Z00CASH 924 4620007231LT 
2862¢2NORTH CENTRAL SUPPLY1L781607U571 T7597TCASH 152 TO9707221T 
2987 LFERGUSUN DEALFRS 27229071071 GO1YICASH 124 6191072217 
ZO0755FASIWAY AIRLINES 2615607U671 T4272CASH 1495 1685 7295707191LT 
Z12Z275tNVIRONMENT CONCERNS20451070671i 2943 59 15Vv007301P 
324576 SUiLe SITLUS — 297425071071 LIVOSCASH 220 110U507201T 
37T945HUF FTA BREAKS INC 18276070671 4723CASH 94. 472307231T 
42622CASTLAKE GRAVEL CO 16429070571 293 7TCASH 58 2937072317 


Figure 6. Sample Data for Sample Program 
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Print position 6 of the Auto Report list- 
ing indicates the origin of the specification: 


The source sequence number 
generated by Auto Report 
appears in print positions 











Auto Report Source Listing 



















2-5 of the listing. (Print Blank — Specification comes from the 
position 1 is blank.) source file. 
C — Specification was copied from 
a source library by /COPY. 
X — A /COPY modifier statement 


from the source file which 
adds, changes, or deletes 
entries on a cataloged input 
field specification (none 
present in this example). 






0001 H SAMPLE 
o0002zy O1OL 1/COPY Fl,$AUSP1 $/3ARP 
0003C 03 FCSHRECRGO F 132 132. OA PRINTER CATALS 
000% O102 I/COPY Fl,$AUSP2 S/3ARP 
, 0005 O02 FCASHRC IPE FLO20 68 DISK CATALS 
O0v6C Ol I[CASHRC AA O11 68 CT CATALS 
00u7C 02 I OR 68 CP CATALS 
0008C 03 I l 5 ACCTNO CATALS 
0009C 04 I 6 25 ACCTNM CATALS | 
OOLOC 05 | 26 300INVNO CATALS 
OOLIC 06 I 31 360INVOAT CATALS 
0012C O07 1 37 422AMTOWD CATALS 
0013C 08 I 43 46 TRANS CATALS 
0014C 09 | 47 S1L20I1SCAL CATALS 
0015C 10 I 52 S620ISTAK CATALS 
0016C ll 1 57 622AMTPD CATALS 
0017C 12 1° 63 670DATPD CATALS 
0018C 13 1 o8 68 C0DE CATALS 
OOoly OL | l 1 REGIONLI S/3ARP 
0020 ol c DISTAK SUB OUISCAL . DIFF 42 S/3ARP 
0021 02 C JIFF COMP 1.00. 10 10 S/3ARP 
0022 03 C AMTOWD SUB UISTAK NETOWD 62 S/3ARP 
0023 vu204 C NE TOWD SUB AMTPD BAL 62 S/3ARP 
0024 0301 OCSHRKECRGH #AUTO S/3ARP 
0025 0302 0 : *CASH RECEIPTS REGISTER® S/3ARP 
0026 0303 90 D Ol *AuTN S/3ARP 
0027 0350 REGION *REGLON® S/3ARP 
00286 0304 0 ACC TNO *ACCOUNT® S/3ARP 
0029 0305 0 C *NUMBER® S/3ARP 
0030 0306 O ACCTNM "ACCOUNT NAME * S/3ARP 
0031 0310 O INVNOD 3 * INVOICE® . S/3ARP 
0032 0311 0 C *NUMBER® S/3ARP 
0033 0312 0 INVDATY ' INVOICE® S/3ARP 
0034 0313 0) C "DATE® S/3ARP 
0035 0314 U WATPD Y *DATt PALD® S/3ARP 
0036 14 O AMTOWDJA *AMOUNT® S/3ARP 
0037 u402 0 C "OWED? S/3ARP 
0034 0 DISTAK A *OIESCOUNT® S/3ARP 
0039 0404 UV . C *TAKEN® S/3ARP 
0040 0405 0 AMTPD A * AMOUNT? S/3AR 
0041 0406 0 Cc *PAIDS S/3ARP 
0042 0 BAL A *AALANCE * S/3ARP 
0043 v408 0 C *)UE® S/3ARP 
0044 vU4V09 U lu’ DIFF A "EXCESS? S/3ARP 
0045 vu410 VU C “DISCOUNT ® S/3ARP 
0040 u4ll UV l "REGION TOTALS* S/3ARP 
0047 v4l2 0 R "COMPANY TOTALS® S/3ARP 





END OF SUURCE 


NO ERRORS 


IN PROGRAM 


END OF AUTO REPURT PROGRAM 


Figure 7 (Part 1 of 4). Listing and Output of Sample Program 
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Figure 7 (Part 2 of 4). Listing and Output of Sample Program 


0010 H 
OOZ0CFCSHRECRGO F 132 132 
DOZ0CFCASHRC IPE F1020 


RPG I! Compiler Listing 


0040 I*/COPY Fly$AUSP1 
0050 I1*/COPY F1l,$SAUSP2 


OO60CICASHRC AA Ol 


0070CI OR 
OO8O0C! 
0090CI 
0100CI 
O110CI 
0120CI 
0130CI 
0140CI1 
O1L50CI 
O160CI 
OL7OCI 
O0180C!I 
0190 I 


0200 C 


0210 C 


0220 C 

0230 C 
O240EC Ol 
O250ECL1 
O260ECL1 
O270ECL1 
O280ECL1 
O290ECL1L 
O300ECSR 
O310ECSR 
O320ECSR 
O330ECSR 
O340ECSR 
O350ECSR 10 
O360ECSR 


O03 70EOCSHRECRGH 
0380ED OR 
0390E0 
0400E0 
0410E0 
0420E0 
0430E0C SHRECRGH 
0440E0 OR 


OISTAK 
DIFF 

AMTOWD 
NETOWD 


AMTOWR 
DISTAR 
AMTPDR 
BALR 
DIFFR 
A$$SUM 
AMTOW1 
DISTAL 
AMTPD1 
BALL 
OIFFI 


206 


lL 


68 CT 
68 CP 


LP 
OA 


1p 


OA 


DA 
SUB DISCAL 
COMP 1.00 
SUB DISTAK 
SUB AMTPD 
EXSR A$S$SUM 
ADD AMTOWL 
ADD DISTAL 
ADD AMTPOL1 
ADD BALI 
ADD ODOIFFL 
BEGSR 
ADD AMTOWD 
ADD DISTAK 
ADD AMTPD 
ADD BAL 
ADD DIFF 
ENDSR 

UDATE Y 

PAGE 2Z 
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PRINTER 
QISK 


DIFF 


NETOWD 
BAL 


AMTOWR 
DISTAR 
AMTPDR 
BALR 
DIFFR 


AMTOW1 
DISTAL 
AMTPD1 
BAL1 
DIFF1 
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131 
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5 ACCTNO 
25 ACCTNM 
300 INVNO 
360INVDAT 
422AMTOWD 
46 TRANS 
512DISCAL 
562DISTAK 
622AMTPD 
&TODATPD 
68 CODE 

1 REGIONLI 


10 10 
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SAMPLE 


SAMPLE 
SAMPLE 
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Sample Program 
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NUG2 
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Figure 7 (Part 3 of 4). Listing and Output of Sample Program 


34 


*REGION® 
*ACCOUNT® 
"ACCOUNT NAME ® 
*INVIICE® 
"INVOICES 
*pATE PAID*® 
"AMOUNTS 
*JISCOUNT® 
"AMOUNT ® 
*dALANCE ® 
"ce XCESS®* 


*NUMSER® 
*"NUMBER® 
*DATE* 
"WED! 
*TAKEN® 
*"PAID® 

* QUES 
"OLSCOUNT® 


"REGION TOTALS ® 


eae 


"COMPANY FOTALS® 


Ceae 


SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE - 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 


SAMPLE 


SAMPLE 
SAMPLE . 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 


3/10/72 CASH RECEIPTS REGISTER PAGE 1 
REGION ACCUUNT ACCOUNT NAME INVOICE INVOICE DATE PAID AMOUNT VISCOUNT AMOUNT BALANCE EXCESS 
NUMBER NUMBER DATE OWED TAKEN PAIO NUE DISCOUNT 
l (211243 JONES HARDWARE 27541 T/lisTl 210s 23.75 47 24023 
l 11352 NU-STYLE CLOTHIERS 27987 T/14/71 T/20/1 87.07 40.00 7.07 
l 11886 “EDL FASHIONS INC 15771 7/04/71 T/14/1 107.22 2.14 105.08 
l 12374  ULOOK INTERIORS 25622 1/09/71 1423/1 67695 67.95 
1 18274 STREAMLINE PAPER INC 29703 7/2/71 7/3071 274.03 2038 170.55 101.10 
REGION TOTALS 560202 4.99 406.86 148.17 * 
2 23347 RITE-BEST PENS CO 20842 r/ 18/7 1720/1 15.A0 10.90 5.80 
2 25521 IMPURTS NF VM 29273 7/20/72 T2741 797.40 11.93 585.47 200.00 
2 26723 ALRIGHT CLEANERS 19473 T/Ot/T1 1/23/21 462.00 462.00 
2 28622 NORTH CENTRAL SUPPLY L78L6 1/95/71 T/22/1 15.97 75.97 
2 29871 FERGUSUN DEALERS 27229 ACY AL 1/2271 61.91 61.91 
REGION TOTALS 19 413608 1b.93 12195035 205280 * 
3 30755 FASTWAY AIRLINES 26158 7/00/72 T/19/1 742.72 16.85 725297 1.90 
3 31275 ENVIRONMENT CONCERNS 20451 7/06/71 7730/1 24.43 15.00 £4.43 
3 32457 #8 SOLE SILOS 27425 TlasTh M2001 110.05 110.05 
3 37945  HOFETA BREAKS INC LA2T6 7/00/71 1723/1 41423 47.23 
REGION TOTALS 929.43 16.35 898.15 14.43 1.90 © 
4 42622 EASTLAKE GRAVEL CO 16429 7/05/71 T7301 29.37 29037 
REGION TOTALS 29.37 29.37 * 
COMPANY TOTALS 2093190 33.77 29529673 368240 
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Figure 7 (Part 4 of 4). Listing and Output of Sample Program 


| Obtaining the Sample Program — Mode! 10, 12, or 15 


Note: The OCL statements shown in the following pro- 1. Mount the distribution pack on R1 and ready the disk. 
cedures should be entered using the device you selected as . 

your system input device during system generation, unless 2. Set the program load selector at REMOVABLE DISK. 
you have altered the device assignment during IPL by | 

entering a READER OCL statement or a READER 3. | Remove any cards from the reader hoppers. 

Operation Control Command (OCC). For a description 

of Operator Control Commands, see the JBM System/3 4. Press reader NPRO. Any cards in the wait station are 


Model 15 System Control Programming Reference fed into a stacker. 


Manual, GC21-5077. 
| 5. Ready the printer. 


SHES aE IE NC OS ViCg eave conence enon Osne 6. Enter the following OCL statements from the assigned 


System input device. , 


| Model 10 or 12 Model 15 

5424 MFCU 5424 MFCU 

1442 Card Read Punch 1442 Card Read Punch 

5471 Printer/Keyboard 2560 MFCM 

3741 Data Station or 2501 Card Reader 
Programmable Work 3277 Display Station 
Station, directly 3741 Data Station or 
attached Programmable Work Station, 


directly attached 


Sample Program 35 


For Model 10, 12, or 15 without Spooling . 


// DATE 00/00/00 
/{CALL $AUPL, R1 
// RUN 


For Model 15 with Spooling 


//AUTORPT1 JOB 
// CALL $AUPL, R1 
// RUN 

/. 


If the system input device is the card reader, place 
the punched OCL statements in the reader hopper. 


Press reader START 


Press PROGRAM LOAD. Initial program loading is 
performed, and when complete, the system begins 
reading cards (Models 10 and 12), or stops with a 
message displayed on the CRT (Model 15). If your 
system has DPF (Models 10 and 12), EJ is displayed 


in the message display unit when initial program load- 


ing is complete. Press PROG 1 HALT/RESET to 
continue. 


@ 
a 
~ 
~ 
£ 
~ 
So 
ua 
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Filename Sequence 





For Model 15 without spooling, press the PF12 key, 
position the cursor on the CRT to the partition 1 end 
of job message, and press the ENTER key to continue. 


When $AUPL has copied the needed source programs 
and procedures from the distribution pack to F1, EJ 
is displayed in the message display unit (Models 10 
and 12), or a message is displayed on the CRT (Model 15). 


10. Press reader NPRO. One card is fed into a stacker. 
Remove the OCL cards from the stacker. Continue 
with, Compiling and Executing the Sample Program 
Model 10, 12, or 15. | 


Note: If your printer has 132 print positions, follow the 
procedure under Compiling and Executing the Sample 


| Program Model 10, 12, or 15. If your printer has fewer 


than 132 print positions, use the procedure Changing Print 


| Position Size Models 10 and 12 to alter printer size. 


Changing Print Position Size — Models 10 and 12 


1. Enter the following OCL statements from the assign- 
ed system input device, inserting the file description 
specification after the // COPY statement as shown. 


// LOAD $MAINT, F1 

//RUN — 

// COPY FROM-READER, TO-F1,LIBRARYSS, 
RETAIN-R,NAME-$AUSP1 

Place the file description specification here. 

// CEND 

//END 


File Description Specifications 


File Type Mode of Processing 


, ; . Length of Key Field or 
File Designation of Record Address Field 


End of File Record Address Type 


Type of File 
Organization 
File Format or Additional Area 


Block Record Key Field 
Length Length Starting 
20 21 22 231/24 25 26 


| 96} _Igigie 
tele 


4. 


Place the cards in the reader hopper. 


Press reader START. When the cards have been 
read, EJ is displayed in the message display unit. 


Press reader NPRO. One card is fed into a stacker. 


Continue with the procedure in the next paragraph, Com- 
piling and Executing the Sample Program — Model 10, 12, 
or 15. See index entry overflow of the D/T-* AUTO print 
lines for a report showing the result of the reduced printer 
record length. 


Compiling and Executing the Sample Program — Model 10, 
| 12, or 15 


1. 


Ds 


Remove the distribution pack. 


Mount the tailored system disk cartridge (disk ID is 
SYSTEM) on RI and ready disk. 


Enter the following OCL statements from the 
assigned system input device: 


// DATE 00/00/00 (omit on spooled Model 15) 
// A\UTORPT2 JOB (spooled Models 12 and 15 only) 
// NOHALT 


// LOG PRINTER 
// CALL RPG,R1 © 


// FILE NAME-$SOURCE, UNIT-R1, RETAIN-T, - 


TRACKS-10,PACK-SYSTEM 
// COMPILE SOURCE-$AUSPA,UNIT-F1 
// RUN | 


// CALL AUTO2,F 1 
// RUN 


// CALL AUTO,R1 
// COMPILE SOURCE-$AUSPB,UNIT-F1 
// RUN 


// HALT 

// CALL AUTO3,F1 
//RUN 

/. (spooled Model 15 only) 


Ready printer. 
Set program load selector at REMOVABLE DISK. 


Press PROGRAM LOAD. 


Initial program loading is performed and when com- 
plete the system begins reading cards (Models 10 and 
12), or stops with a message displayed on the CRT 
(Model 15). 


If your system has DPF (Models 10 and 12), EJ is 
displayed in the message display unit when initial 
program loading is complete. Press PROG 1 HALT/ 
RESET to continue. | 


For Model 15 without spooling, press the PF 12 key, 
position the cursor on the CRT to the partition 1 
end of job message, and press the ENTER key to 
continue. 


If you run the sample program a second time, a 6E halt 
occurs twice during the run. This halt indicates that an 
entry with the same name already exists in the library. 
When this halt occurs, select option 0 to continue. This 
deletes the old library entry and replaces it with the new 


entry. 


Obtaining the Sample Program — Model 6 


1. 


Mount the distribution disk cartridge on R1 (Disk 
ID is SYSTEM). 


Ready disk R1 (set DRIVE 1 switch to ON). 
Set DISK SELECT switch to REMOVABLE. 


When disk becomes ready, move PROGRAM LOAD 
switch to ON. 3 


When the system prints DATE, follow the system 
prompts and operator responses shown below. The 
source library procedure $AUPL copies the sample 
program and procedures from the distribution disk 
cartridge on R1 to F1. 


System Prompts 


Operator Responds 
‘DATE mmddyy or ddmmyy 
READER Press PROG START key 
or type KEY 
READY CALL 
CALL NAME $SAUPL 
UNIT RI 
MODIFY RUN 
MODIFY RUN 


When halt ABCD12345 occurs, press system STOP 
and set DRIVE 1 switch to OFF. Remove the 
distribution disk cartridge from R1. 
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Compiling and Executing the Sample Program — Model 6 8. 


1. 


- Mount the tailored system disk cartridge on R1 (disk 


ID is SYSTEM). This pack contains the RPG II com- 
piler, the Auto Report Feature, and the source library 
procedure to load Auto Report (AUTO). | 9, 


Ready disk R1 (set DRIVE 1 switch to ON). 


When the disk becomes ready, move the SYSTEM 
START/STOP switch to START. 


Follow the system prompts and operator responses 
shown below to compile the preliminary RPG II 
program, $AUSPA. | 


. System Prompts Operator Responds 
READY CALL | 10. 
CALL NAME AUTO1 
UNIT FT 
(RPG procedure) 
SOURCE SAUSPA 
MODIFY RUN 
If the sample program has been run previously, a 11. 


D2345 halt occurs during compilation of the $AUSPA 
program. When this halt occurs, enter 0 and press the 
PROG START key. The object program is stored in 


the object library under the name CREATE. If the 12. 


program has been run previously, the new object 
library member replaces the old member. 


When compilation is complete, halt ABCD12345 
occurs. Move the SYSTEM START/STOP switch 


~ to START. 


_ Follow the system prompts and operator responses 


shown below to execute the CREATE program. 


System Prompts ‘Operator Responds 
READY CALL 
CALL NAME AUTO2 
UNIT F1 
(AUTO2 procedure) 


MODIFY RUN 
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' 


After the data for the Auto Report sample program 
has been printed (Figure 6) and the CASHRC file 
has been created, halt ABCD12345 occurs.: Move 
the SYSTEM START/STOP switch to START. 


Follow the system prompts and operator responses 
shown below to compile the sample program, $AUSPB 


System Prompts Operator Responses 
READY CALL 
CALL NAME AUTO 
UNIT R1 
(AUTO procedure) 
SOURCE $AUSPB 
MODIFY RUN 


If the sample program has been run previously, a 
D2345 halt occurs during compilation of the Auto 
Report sample, $AUSPB. When this halt occurs, 
enter 0 and press the PROG START key. The object 
program is cataloged in the object library under the 
name SAMPLE. If the program has been run pre- 
viously, the new object library member replaces the 
old member. 


When compilation is complete, halt ABCD12345 
occurs. Move the SYSTEM START/STOP switch 
to START. 


Follow the system prompts and operator responses 


shown below to execute the SAMPLE program. 


System Prompts Operator Responses 
READY CALL 

CALL NAME AUTO3 

UNIT F1 

MODIFY RUN 


When halt ABCD12345 occurs, the sample program 
is complete. The listing and report for the sample 
program should match Figure 7. 
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Auto Report Option Specification 


The Auto Report Option specification (Figure 8) can be 


used by the programmer to select certain options regarding - 


the output from Auto Report. The Option specification 

is not required in the Auto Report program. If present, it 
must appear as the first specification in the program. If 
the Option specification is not present, Auto Report 
assumes all of the options that correspond to blank entries 
on the specification (see individual entires for the mean- 
ings of the blank entries). The Option specification can- 
not be within a source library member that is copied by a 
/COPY statement, but it may be cataloged with statements 
that are compiled using the COMPILE OCL statement. Do 


Source (7) 
Entry Explanation 
P (Model 10, The generated RPG II source program 
12, or 15) is to be punched into cards or written 
to diskette. 
C (Models 6, The generated source program is to be 
10,and 15) . cataloged in a source library on disk. 


(Enter the location and name of the 
cataloged member in positions 8-16.) 


not confuse the Option specification (U in position 6) with 


the RPG II control card (H in position 6). Ifthe RPG II B (Models 10, The generated source program is to be 





control card is not present, either in the Auto Report source 12, and 15) both punched into cards or written to 

program or within a copied source library member (see index diskette and. cataloged in a source 

entry Auto Report Copy Specifications), Auto Report gen- library. (Enter the location and name 

erates a control card specification with blank entries. of the cataloged member in positions 
8-16.) 

SPECIFICATIONS Blank The generated source program is to be 


neither punched nor cataloged. 
The following entries on the Option specification are used 
in the same way as corresponding entries on standard RPG 
specifications. See the appropriate RPG II reference man- 
ual for descriptions of these common entries: 


Use position 7 to request additional output from Auto 
Report. You can specify that the source program be 
punched into cards or written to diskette, cataloged in a 
source library, both punched and cataloged, or neither 
punched nor cataloged. In all cases, the generated source 
program is also written on a disk work file from which it 
is immediately compiled. 


@ Page (positions 1-2) 
e@ Line (positions 3-5) 


If a punched deck is desired (P or B option on the Model 10 
| Disk System, Model 12 or 15), blank cards must be placed 
in the hopper of the card unit which was assigned as system 
output device during system generation or which was subse- 
quently assigned as system output device by means of a 
// PUNCH OCL statement. If you are using the 1442 Card 
Read Punch, place blank cards behind the source deck in 
the hopper. The punched cards are stacked as follows: 


@ Program Identification (positions 75-80) 
Form Type (6) 


Enter a U in position 6 of the statement to identify it as 
an Auto Report Option specification. 


Option Specifications 


Source Statement 


Reserved Reserved 


Library Name 


Source (P/C/B) 





Date Suppress (N) 
¥% Suppress (N) 


Work Files (1-9) 
8 Labels (U) 


Form Type 


6] 7/8 9 10 11 12 13 14 15 164717 18 19 20 21 22 23 24 25126]2 
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Figure 8. Auto Report Option Specifications - 
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System Output Device Stacker 


Model 10, 12, or 15 


MFCU2 4 (cards are interpreted) 
MFCUI1 1 (cards are interpreted) 
1442 2 (cards are not interpreted) 
Model 15 Only 
MFCM1 (Model Al) _—_1 (cards interpreted if print 
feature installed) 
MFCM2 (Model Al) 5 (cards interpreted if print 
feature installed) 
MFCM1(Model A2) 1 (cards interpreted if print 
feature installed) 
~MFCM2 (Model A2) 4 (cards interpreted if print 
, feature installed) 


In certain instances, you may wish to punch the generated 
source program so that you can manually modify it to suit 
your specific needs. For example, you can reformat the 
output report by changing the end positions on the genera- 
ted output specifications without re-running the Auto Re- 
port Feature. If the source output is to go to diskette, 
then the correct diskette should be mounted and readied 
before the output operation begins. 


Generated source programs that are cataloged become per- 
manent source library members (RETAIN-P). That is, they 
are not deleted unless you use the DELETE function of the 
Library Maintenance Program to delete individual members, 
or the ALLOCATE function to delete the entire library. 

A library member cataloged by Auto Report, however, is 


replaced by another member cataloged under the same name. 


As source library members, source programs can be com- 
piled using the COMPILE OCL statement or they can be 
written or punched out using the COPY function of the 
Library Maintenance Program. The generated source 
program is not cataloged when terminal errors exist in the 
Auto Report statements. 


A typical use for punching and cataloging the source pro- 
gram in the same step (B entry for Model 10, 12, or 15) | 
is to save time in modifying the source program if the 
output report is unsatisfactory. This saves re-running the 
Auto Report Feature with revised specifications or punch- 
ing the generated source program using the Library 
Maintenance Program so that it can be modified. 


Source Statement Library Name (8-16) 


Entry Explanation 

Ri ' The name of the disk on which the source 
R2 \ name library resides followed by the library 

_ ; name of the cataloged source program. 


42 


Make an entry in positions 8-16 if the generated source 
program is to be cataloged in a source library (C or B entry 
in position 7). Positions 8-9 contain the name of the disk 
on which the source library resides (R1, R2, F1, F2). 


Position 10 contains a comma. Positions 11-16 contain the 
name under which the generated source program is to be 
cataloged. The name can consist of one to six characters; 
the first character must be in position 11 and must be alpha- 
betic (any of the letters A-Z or one of the three special 
characters #, $, or @.) The remaining characters can be 
alphabetic or numeric. 


If the name used to catalog the generated source program 
is the same as the name of an existing permanent member. 


in the library, the old member is replaced by the new 
member. 


Positions 17-26 


Positions 17-26 are not used. Leave them blank. 


Date Suppress (27) 


Entry Explanation 

N Suppresses the date and the page number on | 
the first “AUTO page heading line. 

‘Blank Page number and date are included on the first 


*AUTO page heading line. 


If you do not wish the first *AUTO heading line to have 


the generated date on the left and page number on the 
right, enter an N in position 27. When these fields are 
suppressed, the page title and any other fields you specify 
can occupy the entire line. See index entry *AUTO Page 
Headings Specifications for further information on the 
generated date and page numbers. 


*Suppress (28) 


| Entry Explanation 
N Suppresses the asterisk indication from gener- 
: ated total output lines. 3 
Blank Asterisks are generated for total output lines. 


If you do not want asterisks to print beside generated 
totals, enter an N in position 28. See index entry asterisk 
indication for rules used in generating asterisk indication. 


Positions 29-74 


Positions 29-74 are not used. Leave them blank. 


The *AUTO Page Headings function and the *AUTO 
Output function provide simplified methods of describing 
printed output. These functions of the Auto Report 
Feature are requested by entering the characters *AUTO 
in positions 32-37 of a record description specification on 
the standard RPG Output-Format Sheet. *AUTO can be 
entered on a heading, detail, or total specification (H, D, or 
T in position 15), but not on an exception output speci- 
fication (Ein position 15). “AUTO can be used with only 
one file in a program. That file must be printer file. (Either 
carriage of a dual feed printer may be specified in positions 
40-46 of the file description specification. The CONSOLE 
device may not be specified.) 


7 In RPG II, output specifications are divided into two 
general types (Figure 9): 


1. Record description specifications (positions 7-31) 
describe when and where the output line is to be 
printed. One record description specification is re- 
quired for each different type of line to be printed. 
Only the first record description for a file need con- 
tain a filename in positions 7-14. 


IBM a International Busin 
® 


ess Machines Corporation 


*AUTO Specifications 


2. _ Field description specifications (positions 23-74) 


following a record description specification tell 
when, where, and how each item of data (field or 
literal) is to be printed on the output record. There 
may be several field description specifications 
following a record description specification. 


Auto Report Page Headings and Auto Report Output 


specifications are also divided into the two general 


categories: record description specifications and field 
description specifications. However, the entries on these 
specifications are used differently than in standard RPG II. 
The following RPG II output entries are not changed when 
they are used with *AUTO. See the RPG II reference 
manual for descriptions of these entries: 

@ Page (positions 1-2) 

@ Line (positions 3-5) 

@ Form Type (position 6) 


e Program Identification (positions 75-80) 


Positions 71-74 must always be blank on Auto Report 


output specifications. 


Form X21-9090 
Printed in U.S.A. 


RPG OUTPUT - FORMAT SPECIFICATIONS 


Date 





Program 


Programmer 









Line Filename 
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Figure 9. Two Categories of Output Specifications 
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*AUTO Page Headings Specifications 


The *AUTO Page Headings function provides an easy way 
to produce a page heading at the top of every page of a 


printed report (Figure 10). Up to five H-*AUTO specifica- — 


tions can be used if a multiple-line page heading is desired. 
If both normal RPG II heading lines and H-*AUTO lines 
are specified in combination for a file, they are printed in 
the order specified on the RPG Output-Format Specifica- 
tions sheet. The *AUTO Page Headings function can be 
used with only one file per program. 


The heading line generated by the first H-*AUTO specifica- 
tion contains a date and page number. (The first heading 
line can also contain a title. See index entry Field Des- 
cription Specifications, positions 45-70, for entering a 
title.) The generated date is left-justified and prints with 
slashes as follows: mm/dd/yy (unless the format is altered 
by the RPG II Inverted Print option, position 21 of the 
control card specification). The generated page number is 
right-justified and is preceded by the word PAGE. The 
page number field is four digits in length and it is zero 
suppressed. 


If you do not want the date and page number to print on 
the first heading line, you can suppress them by entering 
an N in position 27 of the Auto Report Option Specifica- 
tion. 


Note: The Auto Report Feature uses one of the unused 
RPG II PAGE fields (PAGE, PAGE1, PAGE2) for page 
numbering. If all PAGE fields are used in the program, 
Auto Report does not number pages. 


RECORD DESCRIPTION SPECIFICATIONS 


Each *AUTO heading (H-*AUTO) record description de- 
fines a separate heading line. The record description en- 
tries allow the programmer to enter spacing and skipping 
information and to specify under what conditions the line 
is printed. 


Filename (7-14) 
Enter the name of the printer file on which the heading is 


to be printed. The filename must correspond to the rules 
for filenames given in the RPG II reference manual. 
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Type (15) 


Enter an H in position 15 on each record description speci- 
fication which defines a page heading line. This entry, 
with the entry *AUTO in positions 32-37, defines this as 
an H-*AUTO heading specification (Figure 10). Up to 

five H-*AUTO specifications are allowed. 


Position 16 


Position 16 is not used in H-*AUTO specifications. Leave 
it blank. 


Space/Skip (17-22) 


You may enter your own spacing and skipping values in 
these positions, according to the rules given in the RPG Il 
reference manual. If you do not enter spacing and skip- 

ping values in these positions, the Auto Report Feature 
skips to line 06 before the first line is printed and spaces 

2 after the last H-*AUTO line is printed. If multiple 
H-*AUTO lines are used, Auto Report spaces 1 after each 
line except the last. For additional information on generated 


‘spacing and skipping values, see index entry report format. 


Output Indicators (23-31) 


On the first H-*AUTO specification, you may either leave 
positions 23-31 blank or enter your own output indicators 
according to the rules given in the RPG II reference manual. ° 
If you leave these positions blank, Auto Report causes the 
corresponding output line to be printed at first page (1P) 
time in the program cycle and when overflow occurs. 

Thus the heading is printed at the top of each page of 

the printed report. You may assign indicators to subse- 
quent H-*AUTO specifications. If positions 23-31 are blank 
on any H-*AUTO specification after the first, that speci- 
fication is assigned the same indicators as the first. 


If an overflow indicator is defined on the file description 
specification for the printer file, that indicator is used to 
condition the generated heading specifications. Otherwise, 
an unused overflow indicator is defined for the file on the 
file description specification by Auto Report and is used to 
condition the line. 


You may use AND and OR specifications with H-*AUTO 
output indicators if you enter an output indicator on the 
first specification. Normal RPG II rules for AND and OR 
lines apply. 


*AUTO (32-37) 


Enter *AUTO in positions 32-37. This entry and H in 
position 15 of the output specification (Figure 10) indicate 
that you are requesting an Auto Report heading line. 


Positions 38-70 


Positions 38-70 are not used on the record description 
line. Leave them blank. 


FIELD DESCRIPTION SPECIFICATIONS 


Each H-*AUTO record description specification can be 
followed by one or more field descriptions. The field 
description specifications are used to specify the title to 
be printed on the heading line and to describe any other 
fields and literals to be printed on the line. 


Positions 7-31 


Positions 7-31 are not used on field descriptions. Leave © 
them blank. (Note that Output Indicators, positions 

23-31, cannot be used to condition a field on an H-*AUTO 
specification.) 
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Figure 10. Specifications and Results — *AUTO Heading Line 
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OUTPUT - FORMAT SPECIFICATIONS 
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Field Name (32-37) 


Entry &xplanation 

Blank A literal (enclosed in apostrophes) may be 
entered in positions 45-70. The literal is 
printed on the heading line. 

Field Field defined in the program is printed on 

name the heading line. 

Table A table element is printed on the heading 

name line. 


Indexed An array element is printed on the heading 
Array line. 
name 


Use positions 32-37 to enter a field name, table name, or 
indexed array name defined elsewhere in the program 
that you want to print on the heading line. If a name is 
entered, an edit word may be entered in positions 45-70, 
but not a literal. A literal must be entered in positions 
45-70 if positions 32-37 are blank. 
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If Output Indicators (positions 23-31) are left blank on 
the record description specification, Auto Report condi- 
tions all fields and table/array elements included on the 
heading line with N1P in positions 23-25. Therefore, the 
field or table/array element does not print on the first 
page. (If printed on the first page, the field might not 
contain meaningful data, since the first record has not 
been read.) N1P is not generated for the following RPG 
II reserved words: PAGE, PAGE1, PAGE2, UDATE, 
UDAY, UMONTH, UYEAR. 


For information on formatting and centering “AUTO 
heading lines, see index entry report format. 


Edit Codes (38) 


You may enter an edit code in position 38 if a numeric 
field, array element, or table element is named in columns 
32-37. If you use a edit code, positions 45-70 must be 
blank unless asterisk protection or a floating dollar sign 

is specified. If position 38 is blank, no editing is done by 
the Auto Report Feature unless an edit word is used. 


Blank After (39) 


Enter a B in position 39 if you want a numeric field reset 
to zeros after it is printed, or if you want an alphameric 
field reset to blanks after it is printed on the heading line. 


Positions 40-44 


Positions 40-44 are not used with *AUTO heading specifi- 
cations. Leave them blank. For information on the posi- 
tioning of fields and literals in the title line and centering 
of heading lines in relation to the body of the report, see 
index entry report format. 
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Constant or Edit Word (45-70) 
Entry Explanation 


Literal Title or other literal (enclosed in apostrophes) 
(con- that is to appear on the printed line. 
stant) 


Edit The edit pattern used to edit the numeric 
word field named in positions 32-37 of the same 
field description line. 


Blank Positions 32-37 contain the name of a field 
| which either is not edited or is edited by an 
edit code. 


Use positions 45-70 to specify the title and other infor- 
mation that is to appear on the output line and to edit 
numeric fields that are to appear on the line. Rules for 
specifying literals and edit words are identical to those 
given in the RPG II reference manual except that no end 
positions can be specified. 


For information on the positioning of fields and literals 
in the title line and centering of heading lines in relation 
to the body of the report, see index entry report format. 


*AUTO Output Specifications 


Detail reports (where a line is printed for each individual 
record that is read) and group printed reports (where only 
totals are printed) can be specified using the *AUTO Out- 
_ put function alone or in combination with standard RPG 
II specifications. The *AUTO Output function generates 
totals and formats columns and column headings. 


A single detail or total *AUTO record description (D/T- 
* AUTO) specification and its associated field description 
specifications can be used to specify: 


1. Up to three lines of column headings to appear 
above a field. 


2. Accumulation of several levels of totals, including 
a final total (known as total rolling). 


3. Generation by Auto Report of end positions for 
column headings and fields. 


4. ' Generation by Auto Report of the K edit code for 
numeric fields. 


5. Fields or literals to be printed next to generated 
totals. 


This section describes the *AUTO Output record descrip- 
tion specification and the four types of field description 
specifications that can be associated with it. The four 
types are distinguished by entries in position 39. The 
remaining entries on a field description specification have 
different meanings depending on the entry in position 39. 


The valid entries in position 39 of the field description 
specifications and their meanings are: 


© Blank or B: Indicates the associated field or literal is 
to appear on the detail line. 


e A: Indicates the associated numeric field is to be 
printed on the detail line and accumulated. A total is 
printed for each control level defined in positions 59- 
60 of the input specifications for the program. A final 
total is also printed (LR). 


® C: Indicates the associated literal is to be printed on 
the second or third line of column headings. 


e@ /,2, 3, 4, 5, 6, 7, 8, 9, R: Indicates the associated 
field or literal is to appear on the total line generated for 
the respective control level indicator (L1-L9, LR). 


See index entry group printing for the effect of these 
entries in a group printed report. 


Note: Examples of the four types of Auto Report field 
description specifications are found in Part I: How to Use 
RPG II Auto Report, Part II: Sample Job, and under 
index entry group printing. 


RECORD DESCRIPTION SPECIFICATIONS 


An Auto Report record description specification must con- 
tain the entry *AUTO in positions 32-37. *AUTO can 
appear only on a record description specification. This 
entry indicates that the record description and the follow- 
ing field descriptions are redefined according to their use 
by Auto Report. 


Filename (7-14) 


Enter the name of the printer file on which the report is to 

be printed. This must be the same file named on H-*AUTO 
specifications, if any. The filename must correspond to the 
rules for filenames given in the RPG II reference manual. 


Type (15) 
Entry Explanation 
D The Auto Report specifications describe a 
report containing detail lines. 
T The Auto Report specifications describe a 


report containing total lines, but no detail 
lines (group printed report). 


Enter a D in position 15 and *AUTO in positions 32-37 if 
you want Auto Report to generate a report that contains 
detail lines. The field description specifications associated 
with the D-*AUTO record description are used to specify: 
e Fields to appear on the detail line 

e@ Column headings 

@ Total rolling 


e@ Literals to appear on total lines 


Examples of D-*AUTO specifications and reports are found 
in Part I: How to Use RPG II Auto Report. 
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Enter a T in position 15 and *AUTO in positions 32-37 if 
you want Auto Report to generate a group printed report 
(see index entry group printing). 


Only one detail or total *AUTO (D/T-*AUTO) record 
description specification can be used in a program. 


Fetch Overflow (16) 


Enter an F in position 16 if you want to specify fetch 
overflow. The normal rules for fetch overflow apply. See 
your RPG II reference manual. 


When used with the *AUTO Output function, fetch over- 
flow applies only to the detail line. If group printing is 
specified (T in position 15), fetch overflow applies to the 
lowest level total line to be printed. 


Space/Skip (17-22) 


Enter spacing and skipping values in positions 17-22 
according to the normal RPG II rules. Entries specified 
apply only to the detail line generated by a D-*AUTO 
specification or the first total line generated by a T-*AUTO 
specification. 


Leave positions 17-22 blank if you want single spacing to 
be done after each detail line printed or, if group printing 
is specified, after the first total line printed. For informa- 
tion on spacing and skipping for generated column heading 
and total lines, see index entry report format. 


Output Indicators (23-31) 


Enter any valid output indicators in positions 23-31 to 
condition the detail or group print line generated by this 
*AUTO specification. If these positions are left blank on 
a D-*AUTO specification, the generated detail line is con- 
ditioned by N1P. Therefore, it is not printed at first page 
(1P) time in the RPG II program cycle. If these positions 
are left blank for a T-*AUTO specification, the first gener- 
ated total line is conditioned by the lowest control level 
indicator defined in the program. (See index entry group 
printing for additional information about the use of this 
entry with a T-*AUTO specification.) 
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You may use AND and OR specifications with *AUTO 
output indicators if you enter an output indicator on the 
first record description specification. Normal RPG II 
rules for AND and OR lines apply. 


Indicators you enter in positions 23-31 of the record 
description specification (and its associated AND/OR lines) 
apply only to the detail line generated by a D-*AUTO 
specification or the group print line (lowest level total 
specification) generated by a T-*AUTO specification. 


If column headings are specified in the field descriptions 
that follow this *AUTO record description, they are con- 
ditioned by either: 


1. The same indicators that were specified for the first 
H-* AUTO specification. 


2. The first page (1P) indicator in an OR relationship 
with the overflow indicator specified for the file on 
the file description specification. If no overflow 
indicator is specified, Auto Report defines an un- 
used overflow indicator and uses it to condition the © 
lines. 


Restriction: If you specify N1P on a D-*AUTO record 
description specification which is followed by field | 
descriptions for totaling fields (A in position 39), the calcu- 
lations generated for the totaling fields are also conditioned 
by NIP. This causes a terminal diagnostic in the RPG II 
compiler. : 


* AUTO (32-37) 


To indicate that you are using the Auto Report Feature, 
enter *AUTO in positions 32-37 on the record description 
line. Position 15 must contain a D ora T in this case, to 
indicate a detail or total “AUTO specification. Only one 
D/T-*AUTO specification may be used in a program. 


Positions 38-70 


Positions 38-70 are not used on a D/T-*AUTO record 
description specification. Leave them blank. 


FIELD DESCRIPTION (BLANK OR BIN POSITION 39) 


D-*AUTO and T-*AUTO field description specifications 
containing a blank or Bin position 39 describe: 


e@ An alphameric field such as an item description 
e A numeric field that is not totaled 
e A literal 


@ A field with a literal to be used as a column heading 
(Figure 11) 


A field named on the line (or a literal, when no field is 
named) following a D-*AUTO record description specifi- 
cation is printed only on the detail report line. If the field 
(or literal, when no field is named) on the line follows a 
T-*AUTO record description, it appears only on the first 
total line generated. 


Positions 7-22 


Positions 7-22 are not used on the field description lines. 
Leave them blank. 
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Output Indicators (23-31) 


Enter any valid RPG II output indicators in positions 23- 
31 or leave them blank. If these positions are left blank, 
the field (or literal, when no field is named on the line) is 
printed on each detail line conditioned by the indicator. 
When group printing is specified (T-*AUTO specification), 
the field (or literal, when no field is named on the line) is 
printed each time the lowest level total line is printed. 


If a column heading is specified in positions 45-70 to 
appear over a field named in positions 32-37, the column 
heading is not affected by output indicators entered in 
positions 23-31. 


Field Name (32-37) 


You may enter a field name, indexed array name, table 
name, or blanks in positions 32-37. If you leave positions 
32-37 blank, you must enter a literal in positions 45-70 
of the same field description specification. Ifa field name, 
indexed array name, or table name is entered, the value of 
the field or element is printed on the detail line (on the 
first total line, if group printing is specified). 
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Figure 11. Auto Report Field Description Specifications (Blank in Position 39). 
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Edit Codes (38) 


You may enter a valid RPG II edit code in position 38 if 
positions 32-37 contain the name of a numeric field, a 
numeric array element, or a numeric table. This position 
must be blank for alphameric fields and table/array ele- 
ments, and for literals. If position 38 is left blank on a 
field description line for a numeric field or table/array 
element, a K edit code is provided by the Auto Report 
program. The K edit code causes a numeric field or ele- 
ment to be printed with commas and a decimal point, 
such as 3,489.13. It also causes zero suppression; zero 
balances are not printed and negative balances are printed 
with a minus sign on the right. 


Blank After (39) 


Entry E&xplanation 
Blank Field is not to be reset to zeros or blanks 
after printing. 
B Numeric field is reset to zeros after it is printed; 


alphameric field is reset to blanks. 


Enter a B in position 39 when alphameric or numeric 
fields, array elements, or table elements are to be reset to 
zeros or blanks after they are printed. Blank after cannot 
be used for literals. This entry applies only to the detail 
line (or the first total line, if group printing is specified). 


End Position in Output Record (40-43) 


Either leave positions 40-43 blank or enter the print posi- 
tion of the rightmost character of the field (literal, if no 
field is named in positions 32-37) to be printed. If this 
entry is blank, Auto Report generates end positions for 
fields, literals, and column headings. See index entry 
report format for additional information and considera- 
tions. 


Position 44 

Position 44 is not used, since packed and binary data cannot 
be specified. Leave this position blank. 

Constant (45-70) 

You may enter a literal (constant) or blanks in positions 
45-70 when position 39 contains blank. Literals are en- 
closed in apostrophes according to the normal RPG II 


ules for coding literals. . 
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{f these positions are left blank, a field name, indexed 
array name, or table name must be entered under Field 
Name (positions 32-37). Column heading continuation 
lines (see index entry field description, C in position 39) 
may follow this field description line, but the first line of 
the printed column heading will be blank. 


If a literal is entered in these positions along with a field 
name in positions 32-37, the literal is printed on the first 
column heading line over the field value. When a column 
heading is used, the length used to space the column on 
the report is the greater of the longest column heading 
length or the field length, adjusted for editing. (See index 
entry report format for additional information on how 
columns and fields are centered and spaced by Auto 
Report.) 


If a literal is entered in positions 45-70 and Field Name 
(positions 32-37) is blank, the literal is printed each time 
the detail report line is printed. In group printing, the 
literal is printed each time the first generated total line is 
printed. 


FIELD DESCRIPTION (A IN POSITION 39) 


Enter an A in position 39 of a field description specifica- 
tion following a D/T-*AUTO specification if you want 
Auto Report to accumulate and print totals for the field 
named in positions 32-37 (Figure 12). As many levels of 
totals are printed as you have defined in the Control Level 
entry (positions 59-60) on input specifications. A final 
total (LR) is also printed. (This process is called total 
rolling. ) 


If group printing is specified and a control level indicator 


higher than the lowest defined control level is specified 


in positions 23-31 on the record description specification, — 
totals are generated for the indicator entered, all higher 
defined indicators, and LR. 


The total output record generated by Auto Report as a 
result of entering an A in position 39 of a field description 
specification are conditioned by the associated control 
level indicator defined in the input specifications. One 
total output record is generated for each control level 
indicator defined in the program. 
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The A in position 39 causes the AMOUNT 
field to be accumulated. Totals are printed 
for each control level and a final total is 
printed. A column heading is specified in 
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Figure 12. Describing a Fieid That is to be Accummulated. 


Generated Total Fields 


When an A is specified in positions 39 of a detail or total 

* AUTO field description specification, Auto Report 
generates and names total fields to be used in accumulating 
the required levels of totals. Field names for the total fields 
are generated by Auto Report based on the name in posi- 
tions 32-37 of the A-type field description. Names are 
generated in the following way: 


1. If the specified field name has fewer than six charac- 
ters, one character is added to the name to create a 
name for the total field. The added character is 
1-9 or R, corresponding to the total indicators Ll 
through L9 and LR, respectively. For example, if 
ITEM is the specified field name and all nine con- 
trol levels are defined, the generated field names are: 


ITEM1, ITEM2, ..ITEM9, and ITEMR 
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2. If the specified field name has six characters, the last 
character is replaced by one of the characters 1 
through 9, or R. For example, if AMOUNT is the 
specified field name and all nine control levels are 
defined, the generated field names are: 


AMOUN1, AMOUN2, ..AMOUNI, AMOUNR 


Total fields are generated and named for all control level 
indicators defined in the program and for LR. (For an 
exception to this rule, see index entry group printing, 
example 1.) For example, if L1 and L3 are assigned to 
control fields on the input specifications and the field QTY 
is specified, three total fields, QTY1, QTY3, and QTYR 
are generated and named by Auto Report. All total fields 
generated for the same level, such as QTY1 and AMOUN1, 
are printed on the same total line, and that line is condi- 
tioned by the corresponding control level indicator. 
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Generated total fields are two digits longer than the origi- 
nal field. For example, if the field QTY is defined with a 
length of 3, QTY1, QTY3, and QTYR all have lengths of 
5. The number of decimal positions remains the same in 
the generated fields. You can define a field name pre- 
viously in a program which is the same as a generated field 
name, giving that field whatever length and number of 
decimal positions you wish. If you do this, the generated 
field is assigned the previously defined length and number 
of decimal positions (if the previous field is numeric). 


Considerations 


Generated field names may be referenced in RPG II speci- 
fications that are included in the program. The program- 
mer must be aware, however, that the use of generated 
fields in this way may interfere with the automatic accum- 
ulation of totals performed by Auto Report. 


Field names ending in 1-9 or R should not be used in an 
Auto Report program that accumulates totals, since Auto 
Report generates total fields ending in those characters. 
This is especially important for 6-character field names, 
since total fields are formed by replacing the last character 
with 1-9 or R. | 


No field name may be used more than once with an A in 
position 39. Also, if a 5 or 6-character field name is speci- 
fied with an A in position 39, a second 5 or 6-character 
field name in which the first five characters are indentical 
may not be specified with an A in position 39. For exam- 
ple, if the following four field names are specified with an 
A in position 39 in an Auto Report specification, all but 
the first are invalid: 


FIELD 

FIELDX — invalid because the first five characters 
duplicate the first five characters of the 
first field 

FIELDY -— invalid for the same reason as FIELDX 

FIELD — invalid since it is a duplicate of the first 


field 
Positions 7-22 


- Positions 7-22 must remain blank on the field description 
lines. 
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Output Indicators (23-31) 


Enter any valid RPG II output indicators in positions 
23-31 or leave them blank. If you leave these positions 
blank, the field described is printed on each detail line. 
If you enter indicators in positions 23-31, the field is 
printed only when the conditions represented by those 
indicators are met. Leave these positions blank for group 
printing. | 


If a column heading is specified in positions 45-70 to 
appear over a field named in positions 32-37, the column 
heading is not affected by output indicators entered in 
these positions. Also, output indicators specified when 
position 39 contains an A do not affect field description 
specifications generated for totals. 


Output indicators specified on an A-type field description 
specification following a D-*AUTO specification condition 
the calculations generated for the field. If the A-type field 
description follows a T-*AUTO specification, however, a 
specified indicator does not condition calculations gener- 
ated for the field. 


Field Name (32-37) 


When you enter an A in position 39, you must enter the 
name of a numeric field that is to be accumulated in posi- 
tions 32-37. These positions may not identify an array, 
array element, or table. The field named is printed on 
each detail line of the report. If group printing is specified, 
the total field for the lowest control level indicator de- 
fined (L1, L2,...L9, LR, in that order) is printed on the 
generated total line. (For an exception to this rule see 
index entry group printing, example J.) Totaling for any 
particular field by entering an A in position 39 may be 
specified only once in each program. 


In order to generate calculation and output specifications 
to accumulate and print the various levels of totals re- 
quired, Auto Report creates and names additional totaling 
fields. Names for the fields are constructed based on the 
field name specified in these positions according to a set 
of rules (see index entry generated total fields). 


Edit Codes (38) 


You may enter an edit code in position 38 or leave it 
blank. If you leave this position blank, a K edit code is 
generated for the field named in positions 32-37. This 
causes the field to be edited with commas and a decimal 
point, such as 1,234,567.89. The field is also zero sup- 
pressed. Zero balances are not printed; negative balances 
are printed with a minus sign on the right. The edit code 
you enter, or the generated K edit code, applies to all 
generated total fields as well as to the field named in 
columns 32-37. 


Position 39 


Enter an A to indicate that totals are to be accumulated 
for the field named in columns 32-37 of this field descrip- 
tion. A total is printed for every control level indicator 
defined in the input specifications and for LR. When 
position 39 contains an A, positions 32-37 must contain 
the name of a numeric field. Positions 45-70 may con- 


tain a literal to be used as the first line of a column heading. 


(See index entry generated specifications for additional 
information.) 


Note: When the lowest defined control level indicator 
used to condition a T-*AUTO specification is higher than 
the lowest control level indicator defined in the input 
specifications, only the total lines corresponding to the 
lowest defined control level indicator used to condition the 
T-* AUTO specification, the higher defined control levels, 
and LR are generated. See index entry group printing. 


Resetting Total Fields to Zero 


When position 39 contains an A, the Auto Report pro- 
gram generates a B (blank after) in position 39 of all the 
detail and total field description specifications generated 
from the field name specified. Thus, the field value for the 
specified field name and any generated field name are reset 
to zero after the field value is printed. 


If group printing is specified, Auto Report generates a 
calculation to reset the specified field to zero on each cy- 
cle. This prevents the same value from being accumulated 
more than once. An unconditioned total calculation oper- 
ation (Z-ADD) is used to set the field value to zero. This 
calculation is the first total calculation in the generated 
RPG II source program. : 


Asterisk Indication 


To indicate that a printed line is a generated total line, 
asterisks are printed on the line, to the right of the highest 
end position generated from the D/T-*AUTO specification. 
One asterisk is printed to the right on the lowest level total 
line generated. One additional asterisk is printed on each 
higher level line including the final total. 


For example, suppose L1 and L3 are defined control 

level indicators in a program. One asterisk is printed to the 
right of the L1 line, two asterisks are printed on the L3 line, 
and three are printed on the LR line. As many as ten aster- 
isks are printed on the LR line if all nine control level 
indicators are defined in the program. 


If you do not want asterisk indication on your report, you 
can suppress the generation of asterisks on total lines by 
entering an N in position 28 of the Auto Report Option 
Specification. 


End Position in Output Record (40-43) 


Positions 40-43 may be left blank or may contain the 
print position of the rightmost character of the field to 


. be printed. If this entry is blank, Auto Report generates 


end positions for fields and column headings. See index 
entry report format for additional information and 
considerations. 


Position 44 


Position 44 is not used with Auto Report, since packed 
and binary data cannot be used. Leave these positions 
blank. 


Constant (45-70) 


Either leave positions 45-70 blank or enter a literal. Do 
not enter an edit word; editing is accomplished by an edit 
code. If a literal is entered when position 39 contains an 
A, the literal becomes the first line of the column heading 
over the accumulated field. 


If these positions are left blank, the first line of the column 
heading is blank, but column heading continuation lines 
can still be used to specify the second and third line of the 
column heading (see index entry field description, C in 
position 39). 


See index entry report format for information on how 
column headings and fields are centered and spaced by 
Auto Report. 
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FIELD DESCRIPTION (CIN POSITION 39) Position 39 


*AUTO field descriptions can be used to specify asecond Enter a C. One or two C-type specifications may follow 


and third column heading line by entering a C in position a field description specification that has an A, B, or blank 
39. in position 39 and an entry in positions 32-37. The first 


C-type specification causes a second column heading line 
to be generated. The second C-type specification causes 
a third column heading line to be generated. (Figure 13). 


At times you may want more information in a column 
heading than can be contained on one line. The Auto 
Report Feature enables you to specify the second and 
third lines of column headings by simply specifying the 
literals to appear on those lines. No additional heading 
output lines need be coded; no end positions need be 
calculated. The special field description specification that 
allows you to do this is identified ye a C in position 39 
(Figure 13). 


Positions 40-44 


Positions 40-44 must be blank on a C-type field descrip- 
tion specification. 


Positions 7-38 Constant (45-70) 
Enter a literal (constant), up to 24 positions including 
blanks, enclosed in apostrophes. The literal becomes the 
second or third line of column headings, depending on. 
whether it is on the first or second C-type specification. 
If two or three column heading lines are specified, the 
shorter literals are centered on the longest. 


Positions 7-38 must be blank on a field description that 
has a C in position 39. 
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FIELD DESCRIPTION (1-9 OR R IN POSITION 39) 


Enter 1, 2, 3, 4, 5, 6, 7, 8, 9, or R in position 39 of a field 
description to specify a field or literal to be printed on a 
specific total line. 


Auto Report allows you to print other information on 
generated total lines in addition to the generated totals 
resulting from A-type field descriptions. The value entered 
in position 39 corresponds to the level of the total line on 
which the information is to be printed (the corresponding 
control level must be defined in positions 59-60 in the 
input specifications). For example, a 3 in position 39 
indicates the information is printed on the L3 total line; 
an R indicates the information appears on the final total, 
or LR, line (Figure 14). Fields and literals specified in this 
way are printed to the left of the leftmost generated total 
on the line. See index entry report format for exact 
placement. 


This type of field description can be used to print identi- 
fying information such as DISTRICT TOTAL, GRAND 
TOTAL, or other literal information. It can also be used 
to print a field and to specify an edit word, floating dollar 
sign, or asterisk protection for the field. 


If none of the *AUTO output fields are defined with an 
A in position 39, then 1-9 or R cannot be used in position 


39. 


In group printing, only specify numbers that are higher 
than the lowest control level indicator used to condition 
the T-*AUTO specification. If the T-*AUTO specification 
is not conditioned by a control level indicator, use only 
numbers that are higher than the lowest control level 
defined in positions 59-60 on the input specifications. 


Positions 7-31 


Positions 7-31 must be blank on a field description line 
with 1-9 or Rin position 39. 


Field Name (32-37) 


Enter the name of a field, an indexed array name, or a table 
name. The corresponding field or element value prints on 
the total line indicated by the entry in position 39. If you 
leave positions 32-37 blank, you must enter a literal in 
positions 45-70. 
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Edit Code (38) 


You may enter an edit code in position 38 to edit a numeric 
field named in Field Name (positions 32-37). If position 38 


is left blank, an edit word may be entered in positions 45-70. 


If position 38 is blank, no edit code is assumed by the Auto 
Report Feature. : 


Position 39 


Enter one of numbers 1, 2, 3, 4, 5, 6, 7, 8, 9, or the letter 
R. These entries correspond to the indicators L1, L2.... 


L9, and LR. The entry identifies a specific total line on 
which the field or literal described is to be printed. 


The entry in position 39 must correspond to a control level 
that is defined in the input specifications in the program. 


In group printing, the entry in this position must be higher 
than the control level of the first total line generated. 


End Position in Output Record (40-43) 

Do not make an entry in positions 40-43 on field descrip- 
tion specifications with 1-9 or R in position 39. See index 
entry report format for additional information and consi- 
derations. 


Position 44 


Leave position 44 blank. 


Constant or Edit Word (45-70) 


You may leave positions 45-70 blank, or you may enter a 
literal or edit word. : 


If Field Name (positions 32-37) on this specification line 
contains an entry, then positions 45-70 may contain any 


of the following: 


e@ Blanks, if no editing is needed for the field or if the 
field is already edited by an edit code in ‘position 38. 


e Edit word, if special editing is desired. 


@ Floating dollar sign or asterisk protection entry used 
with an edit code. 


Positions 45-70 may not contain a literal when Field Name 


contains an entry. However, when Field Name is blank, 
positions 45-70 must contain a literal. 
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GROUP PRINTING 


In group printing, data is summarized for a group of input 
records and only totals are printed on the report. Totals 
may consist of subtotals with a final total, or only a final 
total. 


Specifications 


‘In order to specify group printing using Auto Report, 


enter a T under Type (position 15) with *AUTO in posi- 
tions 32-36. You may enter a control level indicator under 
Output Indicators (positions 23-31). 


When a T-*AUTO specification is used, a line is not printed 
for each individual record that is read, but only after a 
complete control group has been read. This is shown in the 
two group printing examples which follow. 


In Example 1 a total line is generated for the lowest con- 
trol level indicator specified in positions 23-31 and for all 
higher control level indicators defined and LR. 


In Example 2, however, no control level indicators are 
specified in positions 23-31. In this case a total line is 
generated for the lowest control level indicator defined on 
input specifications (positions 59-60) in the program and 
for all higher control level indicators defined and LR. 


Fields and literals defined on field description specifica- 
tions which have a blank or B in position 39 and follow a 
T-*AUTO record description are printed on the lowest 
level total line. Fields defined with an A in position 39 
are not printed on the total lines, but the total fields 
created by Auto Report (see index entry generated total 
fields) are printed on their associated total lines. Contin- 


~ ued column headings (C in position 39) and total-indicated 


fields (1-9 or R in position 39) can also be specified on 
field descriptions following a T-*AUTO record description. 


Output indicators may be entered in positions 23-31 of a 
field description specification following a T-*AUTO record 
description if position 39 of the field description contains 
a blank or a B. If output indicators are used on a field 
description which has an A in position 39. following a 
T-*AUTO specification, those indicators are ignored by 
Auto Report. Output indicators may not be used on a 
field description that contains C, 1-9, or R in position 39. 


Example 1 


In this example, a group printed report is prepared to show 
sales totals for Any Company. The report is similar to those 
prepared in Part I: How to Use RPG II Auto Report. 
However, in this example, only the totals for each region 
and the entire company are shown; individual items 

(detail lines) are not listed. 


A disk summary file, DISKSUM, is also produced by this 
program. The summary file contains a summary record of 
the sales data for each branch. . 


Figure 15 shows the file description and input specifica- 
tions for the program. BRANCH and REGION are defined 
as control fields. 


Figure 16 shows the output specifications and the group 
printed report. Since the T-*AUTO specification is con- 
ditioned by L2, only the totals for REGION (L2) and for 
the entire company (LR) are printed on the report. The 
totals for BRANCH (L1) are not printed. 


The output specifications for DISKSUM (Figure 16) illus- 
trate use of standard RPG II output specifications in the 
same program with *AUTO specifications. The output 
record described is written on the disk file, DISKSUM, 
when there is an L1 control break (BRANCH field changes). 


Since the T-*AUTO specification is conditioned by L2, 
Auto Report does not generate fields for the L1 control 
level, although L1 is defined in the input specifications. 
Therefore, standard RPG II calculation specifications must 
be used to calculate the L1 totals. The L1 total fields that 
are written on the DISKSUM file (SOLDQ1, SOLDV1, and 
VALUE1) must be defined in these calculations. 


Example 2 


In this example, a group printed report similar to Example 
1 is printed using the same file description and input speci- 
fications (Figure 15). Figure 17 shows that by not condi- 
tioning the T-*AUTO specification, totals are printed for 
all defined control levels and LR. 
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Auto Report Copy Specifications 


The Auto Report Copy function provides a way to include 
cataloged RPG II source specifications into an RPG II pro- 
gram. The source specifications that are included must 
reside as a source library member on disk. The source 
library member is created using the Library Maintenance 
disk utility program (see the appropriate SCP reference 
manual listed in the preface). 


Using the Copy function, you can include source specifi- 
cations that are identical or nearly identical in several dif- 
ferent programs and thus reduce the need to repeatedly 
code specifications that are used in several programs. For 
example, if file description and input specifications for a 
particular file are very similar in different programs, these 
specifications can be placed in a source library entry 
using the Library Maintenance program and included in 
any program in which the file is used by means of the 
Copy function. 


Auto Report specifications and any valid RPG II specifica- 
tions, including tables and arrays, can be copied in this 
manner. The Auto Report Option specification and other 
Copy statements cannot be copied. See Part 1: How to — 
Use RPG II Auto Report for an example of using the Copy 
function. 


The specifications included in an Auto Report program by 
means of the Copy function are initially placed in the 
program immediately following the /COPY statement. 
When all specifications have been copied from the source 
library, the entire Auto Report program is sorted into the 
order required by the RPG II compiler (see index entry 

_ order of generated specifications). 


/COPY STATEMENT SPECIFICATIONS 


You request the Copy function by means of a special state- 
ment, the /COPY statement, that is included in the Auto 

- Report program. This statement identifies the source library 
entry that contains the RPG II specifications to be in- 
cluded in the RPG II source program generated by Auto 
Report. /COPY statements must follow the Auto Report 
Option specification and they must precede source tables 
and arrays (File Translation tables, Alternate Collating 
Sequence tables, and compile time tables and arrays). 


The format of the /COPY statement is: 
Position(s) Entry 
1-5 Page and line number indicating the 
placement of the statement in the sequence 


_ of Auto Report source specifications. 


6 This position may contain any entry 
except H or U, or may be blank. 


7-11 Enter the characters /COPY. 
a2 Blank 
13-21 Xx,yyyyyy identifies the disk unit on 


which the source library containing the 
entry to be included resides and the 

source member. xx canbe: R1, R2, FI, 

or F2. yyyyyy is the name, up to six 
characters long, of the entry to be included. 


22-49 Blank 


50-80 Enter any information or comments. 
The contents of these positions are not 
read by the Auto Report Feature. 


Figure 18 shows an example of the /COPY statement. 


MODIFYING COPIED SPECIFICATIONS 


You can include statements among your Auto Report 
specifications to modify file description and input field 
specifications as they are copied from the source library. 
No other types of specifications can be modified. 


/COPY modifier statements from the source file which add, 
change, or delete entries on cataloged input field specifica- 
tions are identified by an X in position 6 of the Auto 
Report listing. 
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Modifying File Description Specifications 


To modify a file description specification that is copied 

from a source library, enter the filename in positions 7-14 

of a file description specification (F in position 6). Then 

make only those entries on the line which are to replace 

existing entries in the copied specification or which are to 

be included as new entries. Blank entries in the modifier / 
statement do not affect the copied statement. 
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Note: Itis convenient to code the /COPY statement on the Input sheet if input specifications are to be modified as 
they are copied. (See index entry modifying input specifications.) 


Figure 18. Example of the /COPY Auto Report Statement 


For example, suppose the file description specification for specification (Figure 19, insert B) in the Auto Report 

a frequently used file named SALES is to be copied from source program. The modifier statement must contain the 
the source library. The original specification contains an filename, SALES, and the new File Type entry, U. Asa 

I in File Type (position 15), defining SALES as an input result of the modifier statement, the File Type on the 

file (Figure 19, insert A). In a particular job, you want to copied file description specification is changed from I to 
update the sales file, so you must change position 15 toa U (Figure 19, insert C). 


U. Therefore, you must include a modifier file description 
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In order to set an entry to blanks, enter an ampersand (&) 


in the first position of that entry on the modifier statement, 


and leave the remaining positions blank. For example, in 
order to remove the Block Length entry (positions 20-23) 
from the cataloged specification shown in Figure 19, in- 
sert A, add an ampersand to the modifier statement in 
position 20, as shown in Figure 20, and leave positions 
21-23 blank. 


Modifier statements for file description specifications do 
not have to be in any particular order in the Auto Report 
source program, except that they may not immediately 
follow the /COPY statement if input field specifications 
are also being modified. 


Only one file description specification with a particular 
filename is allowed to come from the library entries and 
a particular filename can be used only once on a modifier 
statement. 


No modifications are allowed to the file description con- 
tinuation specifications that may accompany a copied file 
description. New continuation specifications can be added 
by placing them after a file description modifier statement 
for the file. 


Modifying Input Field Specifications 


Only input field specifications (specifications describing 
individual fields on the input record) can be modified. To 
modify an input field specification copied from the source 
library, enter the field name in positions 53-58 of an input 
field modifier statement (I in position 6). Modifier state- 
ments for input field specifications must immediately fol- 
low the /COPY statement in the Auto Report program 
that copies those specifications. The first specification 
following the /COPY statement which is not an input 


field specification is considered the end of the input field 
modifier statements for that (COPY statement. (A com- 
ment statement with an I in position 6 is not considered 
the end of the input field modifier statements.) 


The method of replacing, adding, or blanking entries is 
similar to the method used to modify file description 
specifications. To replace or add entries, code the new en- 
try in the proper location in the modifier statement; to set 
an entry to blank, place an ampersand (&) in the first 
position of that entry in the modifier statement. Figure 
21 shows examples of modifying input specifications. 


The modifier statement modifies all copied input field 
specifications which have the same field name. If there is 
no input field by the same name, the modifier statement is 
added to the program as a new input field specification. 
Modifier statements with duplicate fieldnames are allowed 
(length and number of decimal positions must also be the 
same), but only the first is used to modify a copied specifi- 
cation. Others are added as new input field specifications. 


You can inlcude at least 20 input field modifier statements 
per /COPY statement. If more than the minimum amount 
of main storage is available, more than 20 statements can 
be accepted. 


Note: For best results, place those statements first which 
modify existing input field specifications; then place those 
which are to be added as new input field specifications. 
This procedure is suggested because input field modifier 
statements which do not fit into the special main storage 
table for modifier statements are added to the.RPG II 
source program as new input field specifications. This 
order of specifying modifier statements increases the likeli- 
hood that excess statements, if any, will be valid field 
descriptions. 
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66. 


The RPG II program produced by Auto Report includes 
RPG II specifications from the following three sources: 


1. Those included by the programmer in the Auto 
Report program (any valid RPG II specifications are 
allowed). — 


2. Those copied from a source library using the /COPY 
statement. | 


3. Those generated by Auto Report. 


The specifications are in the order required by the RPG II 
compiler. Among the generated specifications are calcula- 
tions to accumulate totals for the specified fields on the 
D/T-*AUTO specification. The output specifications 
generated by Auto Report are also included. Thesé speci- 
fications contain the necessary spacing, skipping, and. 

end position entries to produce a formatted report. 


FORMAT OF THE GENERATED SPECIFICATIONS 


The generated RPG II specifications are in the following 
format: 
Position Contents 

1-4 Sequence number of the specification. 
This number starts as 0010 on the RPG II 
control statement and is incremented by 
0010 on each specification that follows. If 
more than 999 specifications are present in 


the program, the sequence is restarted at 
0000. 


5 Code that identifies the specification, as 
follows: 


Blank A standard RPG II specification | 
present in the Auto Report pro- 


gram. 
C Specification copied from a source 
library. | 
M | Specification copied from a source 
library and modified. 


The Generated RPG Il Program 


E Specification generated by Auto 
Report. 
6-74 Standard RPG II specification. 


75-80 The same characters as are present in posi- 
tions 75-80 of the RPG control statement. 
(If these positions are blank on the RPG 
control statement, they are also blank on 
all specifications in the generated RPG II 


program.) 


Compile time tables and arrays are not changed by Auto 


~ Report; they remain in standard table/array record format. 


GENERATED SPECIFICATIONS 


Standard RPG II specifications are generated by Auto Re- 
port and are combined with RPG II specifications included 
in the input to Auto Report and specifications copied from 
the source library to produce the final RPG II source pro- 
gram. This section describes the generated RPG II specifi- 
cations and the order of those specifications in the RPG II 
source program. 


Figures 22 and 23 show Auto Report specifications for a 
sales report and the resulting RPG II source specifications 
that are generated for the report. Numbers are inserted in 
the figures to identify the Auto Report functions and to 
show the specifications that are generated by each function. 
The Auto Report specifications in Figure 22 are similar to 
those under How to Use RPG II Auto Report, Example 6. 
The file description and input specifications for the SALES 
file are cataloged in a source library, as in that example. . 


The Copy function is used to include the specifications 
for the SALES file (Figure 22, insert 2). Since BRANCH 
and REGION are to be control fields for the sales report, 
modifier statements follow the /COPY statement to add 
control level indicators to the input specifications. 
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Figure 22. Auto Report Specifications for a Sales Transaction Report 
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If you do not specify a header card, 






UVLO +H ; 
RG J04 a Auto Report will generate an all 
blank header card for you. 
C1) ov GU2U0 FPRINTER J F 120 120 GA PRINTER 
0O0U2 GU3B9DCFSALCS IP F 473 43 DISK 
GOU40 IT¥/CUPY. KRILy,SALETR 
0003 UO5OCTISALES AA QL 
0004 vVs60Cl L Y ITEMNO 
0005 OUTUMI | | 8 9 BRANCHLIL 
(2) 0OVV6 UG3UMI LO 10 ReslIUNl2 
OOU7T Ge9OCI.~ Ll 25 Dese 
OVU5 VDLOODLI 26 2TOSULDRQY 
vOUY ULLOCI 28 3425ULDVA 
OOLG UVL20C!1 35 3600NHAND 
6OllL wul3ucl 37 432VALUE 
7 OOLZ Vi4SVEL vl ExSR ASSSUM 
OU13 vVULSuUEUCLI SOLUV2 AUD SuLDVIL SULDV2 92 
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OULT vldVueLlSR ALFSUM BEUSR 
QOLls uUdOGelSR oULvv1 ADU SsULDVA SULUVI 92 
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GVZU0 EFAZVBECSR titUSR 
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Q062 GVOGEOCEL BQ beat 


Figure 23. RPG II Source Program Generated from Auto Report Specifications 
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Generated Calculations 


Calculations are generated to accumulate totals for fields 
named on *AUTO field description specifications which 
have an A in position 39 (Figure 24). 


An RPG II subroutine is generated to accumulate the 
values from these fields into the lowest level generated total 
fields. The name of the subroutine is always AS$SUM. 

The subroutine specifications are conditioned differently, 
depending on whether detail or group printing is specified: 


1. If detail printing is specified, as in Figure 24, the 
EXSR statement is conditioned by the same indica- 
tor(s) that condition the D-*AUTO specification (01, 
in this example). Each ADD statement in the sub- 
routine is conditioned by the field indicator(s) speci- 
fied with the field in its field description specification 
(none, in this example). 


2. If group printing had been specified, the EXSR state- 


ment and all ADD statements in the subroutine would | 


have been unconditioned. 


Total calculations are generated to roll the total from the 
lowest level defined total field through the higher level 
defined total fields and the final total: The total calcula- 
tion to add the total from one level to that of the next 
higher level is conditioned by the control level indicator 
corresponding to the field name of the lower level. As 
shown in Figure 24, total calculations to accumulate L2 
and LR totals are followed by the subroutine to accumulate 
the lowest level total, L1. 


Generated total fields are defined (given length and num- 
ber of decimal positions) when the total field is used as 
the result field in a generated calculation. In the input 
specifications, SOLDVA and VALUE are numeric fields 
defined with a length of 7 and two decimal positions. 
Figure 24 shows that the total fields generated from 
SOLDVA and VALUE are defined as two positions longer 
than the original fields, with the same number of decimal 
positions. 


When group printing is specified (T-*AUTO specification), 
Auto Report generates total calculations to reset each of — 
the accumulated fields (A in position 39) on the lowest 
level total line to zero on each cycle. A (Z-ADD) calcula- 
tion, conditioned by LO, is generated for each accumulated 
field. These calculations are the first total calculations in 
the generated RPG II source program. 
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Generated Output Specifications 


Figure 25 shows the output specifications generated by 
Auto Report. Specifications supplied by Auto Report 
(column heading specifications, total specifications, condi- 
tioning indicators, spacing and skipping values, end posi- 
tion values, blank after) can be identified by comparing 
the listing with the Auto Report specifications. 


Auto Report generates specifications to reset accumulated 
fields to zero after they are printed. See index entry field — 
description (A in position 39) for a discussion of resetting 
fields to zero. In this example, blank after is generated 


for accumulated fields. 


Order of Generated Specifications 


The specifications in the RPG II source program generated 
by Auto Report are in the order required by the RPG II 
compiler. When specifications are included by means of 

a /COPY statement, those specifications are initially placed 
immediately after the /COPY statement. After all specifi- 
cations have been copied and before Auto Report generates 
RPG II specifications from the H-*AUTO and D/T-*AUTO 
specifications, the entire Auto Report source program is 
sorted into the following order: 


1. RPGControl Card Specification 
2. File Description Specifications 
3. Extension Specifications 

4. __ Line Counter Specifications 

5.  Teleprocessing Specifications 

6. Input Specifications 


7. Calculation Specifications (in the order: detail, LO, 
L1-L9, LR, and subroutines) 


8. Output Specifications 
9. Tables and arrays loaded at compilation time (must 


be placed last among the input statements to Auto 
Report) , 
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Placement of the generated calculations in the RPG II source program is shown in Figure 23. 
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Figure 24. Calculations Generated from Auto Report Coding for Sales Transaction Report 
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Figure 25. Output Specifications Generated from Auto Report Coding for Sales Transaction Report 
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Calculations Specifications 


Generated RPG II calculation specifications are placed in 
the following order by Auto Report: 


1. Detail calculations specified by the programmer. 
2. | EXSR statement for the generated subroutine. 


3. Total calculations generated by Auto Report, grouped 
in order by level (all LO calculations, then all L1 cal- 
culations, and so forth). 


4. Total calculations specified by the programmer. 
5. Subroutines specified by the programmer. 


6. Generated RPG II subroutine which accumulates the 
lowest level total. 


Output Specifications 


Output heading specifications generated for H-*AUTO 
specifications appear in the same order they are coded on 
the Output sheet in relation to other RPG II and *AUTO 
output specifications for the file. 


Normally, RPG II output specifications generated from 
a D/T-*AUTO specification are in the following order: 


1. Heading specifications generated for column headings. 
2. Detail specifications. 


3. Total specifications, with the lowest level first and 
LR last. 


This group of specifications is placed in the same relative 
position in the program as the original D/T-*AUTO speci- 
fication. All other RPG II output specifications remain in 
their original order. | 


If, however, the programmer specifies a normal RPG II 
total output specification conditioned by a positive (no N 
in position 23) control level indicator in positions 24-25 
for the file which has a D/T-*AUTO specification, all out- 
put specifications in the program are sorted into the follow- 
ing format: 


1. All heading, detail, and exception output specifica- 
tions. They remain in the same order as they are in 
the generated RPG II source program. Total specifi- 
cations which are not conditioned by a positive con- 
trol level indicator in positions 24-25 remain as they 
were in the program. 


2. Total specifications which are conditioned by a posi- 
tive control level indicator in positions 24-25. These 
specifications are sorted into ascending order by the 
control level indicator in positions 24-25, with LR 
last. 


See Figure 23 and Part IJ: Sample Program for examples 
of the ordering of generated specifications. 


Comment Statements 


Comment statements (identified by an asterisk in position 
7) are allowed among the statements read by Auto Re- 
port. However, since the sort of RPG II specifications 

is based on the contents of position 6, comments may not 
occur in the expected order. To ensure that comments re- 
main with the correct specification, place them after that 
specification and put the same entry in position 6. 


Restriction 


The order of tables and arrays is not altered when the 
source specifications are sorted. Therefore, when you in- 
clude tables and arrays from a source library, they may not 
occur in the correct order after the sort. For example, if 

a File Translation or Alternate Collating Sequence table is 
present in the Auto Report source file, then any compila- 
tion time tables or arrays included from a source library 
member are out of order. That is, the included tables or 
arrays are placed ahead of the File Translation table. Recall 
that compile time tables and arrays must be loaded in the 
following order: 


1. File Translation Specifications 
2. Alternate Collating Sequence Specifications 


3. | Compilation time tables and arrays in the order 
described on the Extension sheet. 


A solution to this restriction is to place your File Transla- 
tion and Alternate Collating Sequence tables in a source 
library and copy them from the library before any other 
compilation time tables and arrays are copied. This pro- 
cedure insures that your File Translation and Alternate 
Collating Sequence tables are the first compilation time 
tables in the generated RPG II source program. 
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One of the advantages of Auto Report is that it frees the 
programmer from the task of specifying the format of his 
report On the Output sheet. Auto Report can completely 
format the report by spacing, skipping, centering lines, 
and calculating end positions for fields and literals. 


~ SPACING AND SKIPPING 


Spacing and skipping can be either left to Auto Report or 
specified by the programmer. Figure 26 shows spacing 
and skipping generated by Auto Report. For the specifica- 
tions used to produce the report, see index entry generated 
RPG II program. 


If Space/Skip (positions 17-22) are left blank on an 
H-*AUTO specification, a skip to line 06 is done before 
the first heading line is printed and space-two-after is done 
for the last heading line. If more than one heading line is 
specified, space-one-after is done for the first and all 


succeeding lines except the last. If the programmer speci- — 


fies spacing and skipping entries, he must follow normal 
RPG II rules for spacing and skipping. 


Column heading lines are spaced like page headings. Space- 
one-after is done for all except the last. Space-two-after is 
done for a single heading line, or for the last heading line 

if more than one is specified. The programmer cannot 
specify his own spacing and skipping entries for column 
headings. | 


If spacing and skipping entries are made on a D-*AUTO 
record description specification, the entries apply to the 
detail line generated. The entries do not apply to column 
headings or total lines generated by Auto Report from the 
D-*AUTO specification. Normal RPG II rules for spacing 
and skipping must be followed. Space-one-after is assumed 
for the generated detail line if spacing and skipping entries 
are not made. 


_ Space-two-after is generated for all total lines produced by 
Auto Report from a D-*AUTO specification. In addition, 
the lowest level total line and the final total line are also 
generated with a space-one-before. 


If spacing and skipping entries are made on a T-*AUTO 
specification, the entries apply to the lowest level total 
line generated, but not to column headings or higher level 


Report Format 


total lines. If spacing and skipping are not made, the lowest 
level total lines are generated with space-one-after; all 
higher levels are generated with space-two-after. Space- 
one-before is always generated for the second-to-the-lowest 
level total and the final total. (Seé Figure 17 for an ex- 
ample.) 


PLACEMENT OF HEADINGS AND FIELDS 


Auto Report generates end positions for fields and literals 
and centers column headings, columns, and report lines 
(see Figure 26 for an example). However, if the program- 
mer specifies an end position for a field or literal on a 
D/T-*AUTO field description line, that end position is 
used on all column heading, detail, and total specifications 
generated from the field description. (The specified end 
position may be altered slightly by Auto Report when the 
line is centered or when the column heading and field are 
positioned in relation to each other.) If the specified end 
position causes an overlap with a previous field or literal, 
Auto Report generates a. new end position. 


Specify end positions only when you want to eliminate 
the automatic spacing between fields or when you want to 
spread out or expand a report on the page. 


Page Headings 


If the date and page number are printed on the first 
*AUTO page heading line (that is, if they are not sup- 
pressed by an N in position 27 of the Option specification) 
the date is always printed in positions 1-8. The page num- 
ber is printed with an end position equal to the highest end 


- position of the longest line in the report. When the first 


*AUTO page heading (including date,.title, and page num- 
ber) is the longest line in the report, one blank space sepa- 
rates the title from the date and the word PAGE from the 
title. If the resulting line exceeds the record length of the 
printer file, the excess information on the right of the line 
is not printed. 
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If a line generated from a D/T-* AUTO specification is the Reformatting “AUTO Page Headings 
longest report line, that line is printed starting in print posi- : 
tion] and the title portion of the first page heading line is - You can reformat an *AUTO page heading line if you do 


centered in relation to that line. Additional *AUTO page not want to use the end positions for fields and constants 
headings are then centered on the first “AUTO page head- that are generated by the Auto Report Feature. If you 
ing line. want to find what end positions are generated for page, 


date, and title information, see the listing of the generated 
If an *AUTO page heading is the longest line in the report source program that is produced by the RPG II compiler 
and a D/T-*AUTO specification is present, any other (see index entry generated specifications). The procedure 
* AUTO page heading lines and the line generated from the for reformatting an *AUTO page heading line varies 
D/T-* AUTO specification are centered on the longest page depending on your system. | 


heading. | 

Fields and constants appear in the order specified in the | Model 10 Disk System, Model 12, or 15: Punch the gener- 
*AUTO output specifications, from left to right. Auto ated source program and modify the end positions on the 
Report provides one blank space before and after fields on appropriate heading field descriptions. You can obtain a 
the heading line. No spacing is provided between literals. punched deck or have the generated source program written 


to diskette by specifying the P or B option in position 7 of 
the Auto Report Option specifications (see index entry 
source, position 7 for detailed instructions). 







Skip to line 06 occurs 
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first line. 
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the report. 













10/26/71 





SALES REPORT FOR ANY CO. 





PAGE 


ReGIUN | BRANCH ITEM DESCRIPTION SALES AMQUNT ON-HAND VALUE 











NUMBER 

AGT701T 2-TON TRUCK 5 25,000.00 2 10,000.00 
AG?7705S PICK-UP 10 20,000.00 ol 2,000.00 
AP6545B CAMPER 2 8,000.00 


12,000.00 * 





53,000.00 












22 AG7701T 2-TON TRUCK 2 10,000.00 1 
AG7705S PICK-UP 4 8,000.00 1 


5,000.00 
2000.00 











71,000.G0 19,000.00 ** 






25 AG6545B CAMPER 10 
AP6549P 1/4 TON TRUCK 20 


30,000.00 6 













20,000.00 
9,000.00 








70,000.00 29,000.00 * 





10,000.00 29,000.00 *x 







FINAL TOTALS 141,000.00 48,000.00 *** 











Auto Report generates a 
blank line before the low- 
est level total (in this case, 
there is only the L1 total) 
and before the final total 

(space-one-before). 






Auto Report generates a blank line (space-two- 
after) following the last page heading line (in 
this case, there is only one page heading line) . 
and following the last column heading line. 


Auto Report generates a 
blank line following each total 
line (space-two-after). 










Figure 26. Report Illustrating Format Generated by the Auto Report Feature 
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Model 6: Catalog the generated RPG II source program in 
a source library by specifying the C option in position 7 

of the Auto Report Option Specifications (see index entry 
source, position 7). Change the end positions on the 
generated source statements using the Keyboard Source 
Entry conversational utility program (see JBM System/3 
Model 6 Conversational Utility Programs Reference Manual, 
SC21-7528). 


Body of the Report 


Placement of column headings above columns depends on 
which is longer, the heading or the associated field (includ- 
ing edit characters). If any of the column headings is long- 
er than the associated field, the field is centered under the 
longest column heading literal. If, however, the field is 
longer than the longest column heading literal, the column 
heading is left-justified over an alphameric field and right- 
justified over a numeric field. When more than one column 
heading line is specified, shorter column headings are always 
centered on the longest: 


Fields and literals appear from left to right on a line in the 
order they are specified on the output specifications. At 
least two blank spaces appear before each field on the line. 
However, no spaces are provided before a literal; the pro- 
grammer must incorporate blanks within literals to provide 
for additional spacing. 


Total indication information (fields and literals specified 
with 1-9 or R in position 39) is placed to the left of the 
first total field (A in position 39) on the corresponding 
total line, followed by two spaces. If two or more such 
fields or literals are specified for a total line, they appear 
from left to right in the order specified on the left of the 
first total on the line. Each field is preceded and followed 
by one space. No spacing is provided for literals. 


Overflow of the D/T-“AUTO Print Lines 


If the lines generated from a D/T-* AUTO specification are 
longer than the record length specified for the printer file, 
a second print line (overflow line) is generated for each 
column heading line, detail (or group print) line, and total 
line. (Remember, a second print line is not generated for 
*AUTO page heading lines.) The excess information is 
placed on the overflow line in the order specified, right 
justified. : 


Figure 27 shows the result of an overflow condition. The 
specifications and data for the report are the same as in 
Part IT: Sample Program, except that the printer record 


length has been reduced from 132 to 96. In the output 


specifications for Figure 27, no spacing or skipping is 
specified. If you specify spacing and skipping, however, 
Auto Report spaces the report as follows: 


1. Column heading lines and total lines are spaced as 
shown in Figure 27. 


2. The space-before and skip-before entries you specify 
are used for the original detail (or group print) line. 
Auto Report generates space-one-after for this line. 


3. The space-after and skip-after entries you specify are 
used for the overflow line. Auto Report generates 
blanks for space-before and skip-before for the over- 
flow line. 


Report Format 77 


Auto Report prints those columns 
that cannot be completely con- 

tained on the original line on over- 
flow lines. 







3/20/72 CASH RECEIPTS REGISTER PAGE l 
REGION ACCOUNT ACCOUNT NAME INVOICE INVJICE DATE PAID AMQUNT OISCUUNT 
NUMBER NUMBER OATE NwED TAKEN 
AMOUNT BALANCE EXCESS 
PAID DUE DISCOUNT 
1 11243 JONES HARDWARE 27541 T/LL/T.L T2171 23.75 047 
| 23228 | 
l 11352. Nu-STYLE CLOTHIERS 27987 T/le/T71 1/251 87.07 
40.00 47207 
1 11886 MIUEI FASHIONS INC 15772 T/04/71 T/14s/1 107.22 2.14 
| . 105.03 
1 12874  ULOOK INTERIORS 25622 T/09/71 7/23/71 67.95 
| 67295 
1 18274 STREAMLINE PAPER ING 29703 T/21/71 7/30/1 274.03 2.33 
170.55 101.10 
REGION TOTALS 560.02 4.99 
406286 148.17 * 
2 23347 RITE-BEST PENS CO 20842 7/18/71 7/2071 15.80 
10.00 5.80 
2 25521 IMPORTS 3F NM 29273 —TW2u/T7l 7T/27/1 797.40 11.93 
5385-47 200.00 
2 26723 ALRIGHT CLEANERS 19473 7/01/71 7/23/1 462.00 
462.00 
2 28622 NORTH CENTRAL SUPPLY 17816 T/u2/T1 7/22/11 75.97 
| 75097 
2 29871 FERGUSON DEALERS 27229 T/1LO/TL T/22/1 61.91 
61-91 
REGION TOTALS 12413208 11.93 
19195435 205-80 * 
3 30755  FASTWAY AIRLINES 261538 7/06/71 T/19/1 742.72 16.85 
725287 1.90 
3 31275 ENVIRONMENT CONCERNS 20451 T/D6/T1 7/30/21 29.43 
15.00 14.43 
3 32457 68 SOLE SILOS 27425 T/lo/TL 7/20/1 110.05 
7 110.05 
3 37945  HOFFTA BREAKS INC 138276 T/06/TL 7/23/1 47.23 
47223 
REGION TOTALS 929.43 16.85 
898.15 14.43 1-90 * 
4 42622 EASTLAKE GRAVEL CO 16429 7/05/71 7/23/1 29.37 
29237 
REGION TOTALS 29.37 
29237 * 
COMPANY TOTALS 2,931.90 33.77 
29529273 368-40 1.90 *# 


Figure 27. Report Illustrating Overflow of D-*AUTO Print Lines — 
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System Considerations 


This section includes information about installation, _ OPERATING CONSIDERATIONS 


operating instructions, and operation control language for 


the Auto Report Feature. | To compile an RPG II program that includes Auto Report 
specifications, follow the instructions for compiling an — 
RPG II program given in IBM System/3 RPG II Reference 

INSTALLATION AND MAINTENANCE Manual, SC21-7504. Remember the following differences 


Beginning with version 06, modification level 00 of the IBM 


System/3 Model 10 and Model 6 Disk Systems, the RPG II 1. 


Auto Report Feature is distributed as part of the system 
release. In order to install Auto Report, follow the pro- 


PARTITION SIZE 


The Auto Report Feature program requires at least 5K 
(5120) bytes of main storage space. On systems with 
Dual Programming Feature, Auto Report can run in either 
program level 1 or program level 2, but must be the only 
program operating. 


On the Model 15, Auto Report can run in either partition 1 
or 2. The Auto Report Feature can run concurrently with 
a program in another partition if the I/O devices required 
by Auto Report are not allocated to the other partition. 


when compiling an Auto Report source program: 


The name used in the OCL CALL statement is AUTO; 
the name on the LOAD statement is $AUTO. 


cedures for system generation described in JBM System/3 2. The Auto Report Option specification (U in position 
Models 6, 8, 10, and 12 System Generation Reference 6) must be the first specification in the Auto Report 
Manual, GC21-5126, or IBM System/3 Model 15 System source program. 
Generation Reference Manual, GC21-7616. 
| | 3. On the Model 10 Disk System, Model 12, or 15, if you 
The RPG II Auto Report Feature distributed with the want the source program generated by Auto Report 
system release includes the following: to be punched into cards, place blank cards in the 
hopper of the card unit which was assigned as system 
-@® AnIBM-supplied source library procedure (named output device during system generation or which 
AUTO) for loading the Auto Report Feature program was subsequently assigned as system output device 
(see index entry operation control language considera- by means of a // PUNCH OCL statement. If you are 
tions). using the 1442 Card Read Punch, place blank cards 
; behind the source deck in the hopper. The punched 
@ The Auto Report Feature program, consisting of 17 cards are stacked as follows: 
object modules (O. modules), requiring approximately 
192 sectors of object library space on disk. See Appen- 
dix B for the names of the modules. System Output Device "Stacker 
@ Asample program and the source library procedures | Model 10, 12, or 15 
ae |e (card ae interpreted) 
: | MFCU1 1 (cards are interpreted) 
run it). | 
1442 2 (cards are not inter- 
preted) 
_ Model 15 Only 


MFCM1 (Model A1) 1 (cards interpreted if print 


feature installed) 


MFCM2 (Model Al) _—5 (cards interpreted if print 


feature installed) — 


MFCM1 (Model A2) 1 (cards are not interpreted) 


MFCM2 (Model A2) 4 (cards are not interpreted) 
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OPERATION CONTROL LANGUAGE CONSIDERATIONS 


In order to compile an RPG II program that includes Auto 
Report specifications, the Auto Report Feature program 
must be loaded into main storage. After the Auto Report 
Feature program has generated an RPG II source program, 
it calls the RPG II compiler to compile the source program. 
An IBM-supplied procedure can be called to load the Auto 
Report Feature program. The OCL statements to include 
the procedure from the source library are: 


Model 10 Disk System, Models 12 and 15: 


// CALL AUTO, R1 


// RUN 
Model 6: 
System Prompts Response 
READY CALL 
CALL NAME- AUTO 
UNIT- R1 
‘(MODIFY RUN 


The OCL statements included in the source library pro- 
cedure named AUTO are: 


Model 10 Disk System, Models 12 and 15: 


// LOAD $AUTO,R1 

// FILE NAME-$SOURCE,UNIT-R1,RETAIN-S, 
// TRACKS-10,PACK-SYSTEM 

// FILE NAME-$WORK,UNIT-R1,RETAIN-S, 
// TRACKS-10,PACK-SYSTEM 

// RUN 


Model 6: 


NAME-$AUTO 
UNIT-R1 
NAME-$WORK 
UNIT-R1. 
PACK-SYSTEM 
RETAIN-S 
TRACKS-10 


NAME-$SOURCE 
UNIT-R1 
PACK-SYSTEM 
RETAIN-S 
TRACKS-10 
OBJECT-R1 
SOURCE-name 
UNIT-F1 


LOAD 


FILE 


FILE 


COMPILE 


Note: name = name of user source program 
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Library procedures can be modified. OCL statements . 
necessary to modify a library procedure are described in 
the appropriate SCP reference manual (see list in Preface). 


If you wish to change the number of tracks in $SOURCE 
and $WORK, modify the library procedure, calculating 
tracks as follows: 


Number of specifications 
48 


Tracks = 


For number of specifications, use the greater of the num- 
ber of specifications read by the Auto Report Feature or 
the estimated number of specifications in the generated 
source program. The calculated number of tracks should 
be used for both $SOURCE and $WORK. 


HALTS 


The Auto Report Feature does not diagnose all error con- 


- ditions in the source program. Diagnostics that are per- 


formed by the RPG II compiler are not duplicated by 

Auto Report. If a program cannot be successfully generated 
because of errors in the Auto Report specifications, Auto 
Report halts, displaying the following halt code: 


Models 10, 12, and 15: ‘8 


Model 6: ABD45 


Only recovery option 3 (immediate cancel) is available 
following this halt, unless NOHALT (// NOHALT OCL 
statement) is in effect. If NOHALT is in effect, the halt 


‘will not occur (Models 6, 10, and 12). On Model 15 a halt 
will not occur if a severity of 2 or greater is specified on a 


NOHALLT statement. Instead, the RPG II compilation is 
bypassed and the next job is allowed to execute. 


If an RPGII source program is successfully generated, 
Auto Report calls the RPG II compiler without halting. 
Normal RPG II compilation halts can occur after com- 


pilation has begun. Compilation halts and object program 
execution halts are explained in: 


e@ IBM System/3 System Messages, GC21-5076. 


© IBM System/3 Model 10 Disk System Halt Guide, 
GC21-7540. 


e IBM System/3 Model 12 Halt Guide. 


e IBM System/3 Model 6 Halt Guide, GC21-7541. 


COMPILE Statement 


The COMPILE statement may be used to specify the name. 
of an Auto Report source program in the source library 
that is to be compiled by the RPG II compiler using the 
Auto Report Feature and/or to specify where the object 
program is to be placed. Unlike the specifications ir- 
cluded by a /COPY Auto Report statement, source library’ 
specifications included by a COMPILE may contain a 
/COPY Auto Report statement and an Auto Report Option 
specification. See the OCL reference manual for your 
system for a description of the COMPILE statement. 


LOG Statement 


Output of the Auto Report Feature program listing is 
governed by the LOG statement. See the appropriate OCL 
reference manual for your system for a description of the 
LOG statement. The LOG OFF OCL facility can be used 
to suppress the Auto Report listing on the Model 10 Disk 

| System, Model 6, or 12 when in card mode (when the 
5496 Data Recorder, 129 Card Data Recorder, or directly 
attached 3741 is used to process OCL). The LOG OFF 
facility does not suppress the Auto Report listing on the 

| Model 6 in conversational mode or on the Model 15. 
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Appendix A: Programming Aids and Tips 


The following chart should be helpful in determining valid *AUTO Output entries de- 
pending on the contents of position 39: 


Blank or Blank or Blank or Blank or 
Indicators Edit Code End Position Column Heading 


‘Blank or “Blank Blank or ' | Literal 
Indicators End Position 

Blank or Biank or Blank or Blank or 
Indicators Edit Code End Position Column Heading 


Blank or Blank or Blank or | Blank or 
Indicators Edit Code End Position Column Heading 


Blank Column Heading 
Blank Blank or Blank or 
Edit Code Edit Word 


Blank Literal 





The following miscellaneous programming suggestions may be helpful in specific pro- 
gramming situations: 


1. | One column heading can be printed over two or more fields if automatic column 
spacing is taken into consideration. For example, if the heading DATE is to print 
over a month field and a day field as follows: 





D | i4 | || |e 
Ion, | | Day 
Seer 
| xix? | | xix 
| Wi] | | Kix! 
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Code the output specifications as follows: 


International Business Machines Corporation 


RPG OUTPUT - FORMAT SPECIFICATIONS 


mony oom TT TPT TT 
sel a 


Output Indicators 









2. . To print a constant on only the first detail line under a column heading, move the 


constant to a field in calculations specifications and print that field. 


IBM International Business Machines Corporation 
a 


RPG CALCULATION SPECIFICATIONS 


Date 
—.—--- | Punering {Sree | | | | | | | | 
rr | eee A ees ea ay 
Program 


Assume L1 is 
defined in posi- 
tions 59-60 on 
input specifica- 
tions. 


Programmer 


Operation Factor 2 





Control Level. 
(LO-LS, LR, SR} 


° 
z Table (Factor 2) is 


Slee ae eles 





x. 
a 
Form Type 


2 [13/14] 15]16|17]18 19 20 21 22 23 24 Ae 7 38 39 40 4 
0}2 Cc 


IBM International Business Machines Corporation 


RPG OUTPUT - FORMAT SPECIFICATIONS 


Date 
Punching 
Oe a P= ele al fee 


Programmer 


Filename 





STO le le fomtve SCS” 








Form X21-9093 
Printed in U.S.A. 


75 76 77 78 79 80 
Program 
Identification 


Comments 


2 63 64 65 66 67 68 69 70 71 72 73 74 





Form X21-9090 
Printed in U.S.A, 


75 76 77 78 78 80 
Program 
identification 


X = Remove : 
Plus Sign Sterling 
Y = Date Sign | 
Field Edit Position 
Z = Zero 


IBM 


Date 
Program 


Programmer 


Form Type 


IBM 


Date 
Program 


Programmer 


Peele Lest 


Filename 





Sequence 


In order to print a column heading using the *AUTO function, a field name must 
be coded with that column heading. If a need arises to print a column heading for 
a field that is to be printed only at total time in the RPG II program cycle, create 
a field of blanks by means of calculations specifications and print that blank field 
with the desired column heading. Then use a normal RPG II total specification 
and code the desired field to print using end positions. See programming tip 5 for 
an example. 


If group printing is being done and more than one record type is present in the 
input file, certain precautions must be taken by the programmer. Ifa field to be 
accumulated is present in all record types, but only one record type is to be pro- 
cessed, proper total is not generated unless additional coding is used. Given the 
following input specification: 


International Business Machines Corporation Form X21-9094 


RPG INPUT SPECIFICATIONS - 


Punching Bt ty 
Pe et «J 


Record Identification Codes , 


1 2 75 76 77 78 79 80 


Page Program 
Identification 


Field Name ‘3° Sign 
Zero { Position 
: Plus |Minustor 
53 54 55 56 57 58159 60/61 62163 64]65 66)67 68 


COE eee nN 
AMEL| (cz | 
bea 





Binary 


Number (1-N) 

Option (0) 

Record Identifying Indicator 
a 

P = Packed/B = 

Decimat Positions 

Control Level (L1-L9). 

Matching Fields or 

Chaining Fields 

Field Record Relation 


International Business Machines Corporation Form X21-9090 


Printed in U.S.A, 
RPG OUTPUT - FORMAT SPECIFICATIONS 
75 76 77 78 79 80 


nom [oo | |. >... morn TTT TT 
wets Penn} TL 1b 1 ae 


X = Remove ; 
Plus Sign ae 
Y = Date Berit 
Fietd Edit one 
Z = Zero 
Suppress 


Constant or Edit Word 
7 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70/71 727 


BesCaTeTIIOM | LT} 


MAnreny LCT Senn 
Beye PACH 
eee a 


moUWT ‘| | 
ee EaiaaeeeeeeG 


Appendix A: Programming Aids and Tips 87 


The results are incorrect because the T-*AUTO specification causes an unconditioned 
ADD subroutine to be generated if a field is to be added. In the Auto Report coding | 
above, QTY is added when the 10 indicator is on and when indicators 11 or 12 are 

on. 


The following coding is a method of obtaining the correct results: 


Form X21-9093 


IBM international Business Machines Corporation 
Printed in U.S.A. 


RPG CALCULATION SPECIFICATIONS 


Date ference | | | | | tt |] ident 
a phic 
Punching Identification 
Instruction 
Program bane Wace eo le hee 


Programmer 
: Resulting 
Indicators Indicators 


ee Factor 1 Operation Factor 2 Result Field : Comments 


39 


v1 1111 lid7va lll TO eet 
ves LLU ISIAlcelsal CCAP 


Form X21-9090 
Printed in U.S.A. 


75 76 77 78 79 80 


rad 
34 
&e 
a ad 
CSO 
a2 
8a 


International Business Machines Corporation 


RPG OUTPUT - FORMAT SPECIFICATIONS 
75 76 77 78 79 80 


rina || Sete ff err 
cee eee Jeet Nee ] ee 





Programmer 









































pol ie Output Indicators TaD => 
X = Remove Sterli 
ES Plus Sign rie a 
Line Filename : | y 
: And And Field Name ga Field Edit Position 
& «| Z = Zero 
fag 8 = Suppress 
E x 
— XYBwic 
36 aI 
rr . wW fa 
3 4 5/6 9 ; 27 36 37]38 9 
ols] lolPRlwi7n | | rh t tt tty elit Et iri, | | 
jz) fol EE fe] BESO 
f 
ols} fof TT TT TET EET ET TE EE eA AL 
rj a 
PE BCECCCCEPE EEE LLC Set 
% a iS n 


5. When printing an invoice register, the total number of invoices is often ane as 
shown on the following print chart: i 


as er 


VOICE rr eaeeer apa Henan | MAME 
WHMIBER TIT TTT TT TTT tere care ME Hh eh 









Lt TT | tT | aig ttt TTT 
WXXKIXX! | | | TT Deixl ixbxiad ott TT TT XX Wat TTT Dd xi Ie da CT 
ST TTT TTT 
TT 
LTT TTT TT XD XIX IXIXX]. [ aR i D-| | IX, XXIX! XXX Ws | ttt tT XP | 













A method of accomplishing this is shown by the following calculation and Auto — 
Report output specifications: 
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IBM International Business Machines Corporation Form X21-9093 
wv 


RPG CALCULATION SPECIFICATIONS nee a 


= oe ome | oe rea 
Instruction Identification 
SPE OTD a 


Programmer 


75 76 77 78 79 80 





Factor 1 Operation Factor 2 Result Field 


Form Type 
Control Level 
(LO-L9, LR, SR) 
Decimal Positions 










































3.4 5/1647 23 30 «4 36 38 39 40 46 48 60 
= 
oll fe] | | Bal TTT omiorin ||| wid | lait ttt ttt izorblepl | sig TTT TTT TT 
lat tel TT TTL TT ETT ET | owe EL Et | ieiclawiais| | gi | TTT TE 
BM International Business Machines Corporation Form X21-9090 
I Printed in U.S.A. 
RPG OUTPUT - FORMAT SPECIFICATIONS 
1 2 75 76 77 78 79 80 
= me ome TT TT TT = 
as rage Identification 
Program pet ye Sie Nes Pei eof cc) 
Programmer 
Output Indicators Edit Codes 
X = Remove es 
Plus Sign aa 
Line Filename : oe oun bas Position 
a Q Z = Zero 
- z= Suppress 
E a 
hi 2 
3°94 543637 8 9 15 
elt fot TTT TTT 
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6. Another method of counting records is shown below. This method is especially 
applicable when: 
a. You are doing a detail list - 
b. You do not want I’s listed down the page 
c. You want to take totals by control level. 


IBM International Business Machines Corporation Form X21-9093 
wD 


Printed in U.S.A. 


RPG CALCULATION SPECIFICATIONS 


Om rocnce [ore | TT TTT - 
9 Identification 
Instruction 
PR a 


Programmer Beare Se et ee es . 
Resulting 
Indicators 


75 76 77 78 79 80 


Factor 1 Operation Factor 2 i : . Comments 


Control Level 
(LO-L9, LR, SR) 


Table (Factor 2) is 


Low |Equal 
61 62 63 64 65 66 67 68 69 70 7% 72 73 74 





International Business Machines Corporation Form X21-9090 | 


Printed in U.S.A. 
RPG OUTPUT - FORMAT SPECIFICATIONS 
12 75 76 77 78 79 80 


Date Pri 
= punching [Sreric | | | [| | [| Page a 
' 3 Identification 
‘ogram Ee 


Programmer 





X = Remove S 
Wee Plus Sign pela 
Filename i - End é SOR Position 
Positon Field Edit 
Z = Zero 
Suppress 


Calculation SEE CAHONS 


a 
> 
Ee 
E 
3 
we 

6 





3.94 «5 


Line 01 _—‘ This instruction is needed only to define the field COUNT for 
accumulation. 


Line 02 This instruction accumulates the total for the first control level. 
Output Specifications 


Line 03 _—— This instruction causes the generation of calculation and output 
specifications for the detail and total lines. The LR conditioning 
indicator prevents the generated detail calculation from occurring. 

It also prevents printing at detail time. 


Note: If no control levels are specified in the program, a 1 would be added to 
COUNTR rather than COUNT! on the calculation specifications. 
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Appendix B: Internal Operation of the Auto Report Feature 


The diagrams in this appendix show the phase structure 
of the Auto Report Feature and give the general functions 
of each Auto Report phase. The symbols used on these 
diagrams and their meanings are: 


By Control flow 
(A) On-page connector | 


2) Off-page connector 


- Formal phase name 






Descriptive phase name 
SAUTO. /COPY and Merge Phase 
@ Functions 


¢ Branches 


Vv 


Input to phase 


4 


Output from phase 


If you are reviewing these operational diagrams as the 
result of receiving an Auto Report diagnostic message, 
you can find the number of the phase that generated the 
message in Appendix C. 


Auto Report source statements are read and placed in the 
$SOURCE work file by the Scheduler prior to calling the 
first phase of Auto Report. — . 
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From Disk System Scheduler 


$AUTO  /COPY and Merge Phase 


Entry Point — BEGIN 
¢ Checks for Source Program; if none 


Opens $SOURCE and $WORK. 

Diagnoses ‘U’ specification. 

Checks for /COPY statements. 

Merges source library members with RPG II source 
statements. 


RPG II and Auto Report specifications from $SOURCE 


Cataloged library statements, from source library. 


Listing of source statements using HALT/SYSLOG, 
unless LOG is off. 

Merged source to $WORK. 

Error notes to listing. 





$AU002 = Sort Source Into Compiler Order and Build Name 
’ Table for H-*AUTO and D/T-*AUTO Specifications 


Entry Point — BEGIN 


@ Sorts merged RPG II statements from $WORK onto 
$SOURCE, in RPG II Compiler order {ie H card, 
File Description, Extension, Line Counter, Tele- 
processing, Input, Detail, Total, Subroutine, 
Calculations, Output, and Tables). 

¢ Checks for H-*AUTO or D/T-*AUTO lines within 
Output Specifications; if not present 

® Builds Field Name Table if H-“AUTO or D/T-*“AUTO 
lines are present in Output Specifications. 


=> = Merged source statements from SWORK. 


<r e Sorted statements to $SOURCE. 
e Error notes to listing. 
e Passes Field Name Table to Phase 3. 


$AU003 Define Field Table names used in H-*AUTO and 
D/T-*AUTO Lines and Build Table for Printer File 
Phase 


Entry Point — BEGIN 


e Builds a File Table for File Description Specifications 
for *AUTO File. 

e Checks all field definitions 

e Checks for conflicts with generated names. 


Checks File Table for H- and/or D/T-*AUTO Printer 
file, if not found 


=> Source statements from $SOURCE. 


<r ee File Table for printer files used with H-“AUTO and 
D/T-*AUTO lines. 
_@ Field Table definitions for field names used in Auto 
Report Output lines. 
® Error notes to listing. 





$AU004 H-*AUTO Line Specifications and Diagnostics Phase 
Entry Point — BEGIN 

e Develops length of H-“AUTO lines. 

e Finds longest line in Printer file, excluding 

Accumulated Total and H-*AUTO lines. 

® — Diagnoses H-*“AUTO specifications. 

+ Checks for D/T-*AUTO lines; if none 

> Source statements from $SOURCE. 


<r e Updated source returned to SSOURCE. 
@ = Error notes to listing. 


$AU005 D/T:*AUTO Line Specifications and Diagnostics 
Phase 


Entry Point — BEGIN 
Performs diagnostic checks on D/T-*AUTO lines. 
Source statements from $SOURCE. 


Updated source returned to $SOURCE. 
Error notes to listing. 


$AU006 Unadjusted D/T-* AUTO Line Lengths Phase 


Entry Point — BEGIN 


e Develops lengths of D/T-“AUTO Lines (unadjusted) 
® Develops possible field end positions. 


=> Source statements from $SOURCE. 


<= e@ Updated source returned to $SOURCE. 
e Error notes to listing. 


$AU007 Generate Calculations Specifications for Accumulated 
Line Totaling Phase 


Entry Point — BEGIN 
Find longest line in “AUTO file. 
Assign overflow indicators, if necessary. ‘ 
Generates Calculation Specifications for accumulated 
Line Totals. 
Source statements from $SOURCE. 
Source program to $WORK. 


Error notes to fisting. 





$AU008 


Control Generation of Output Specifications for 
H-* AUTO and D/T-*AUTO Lines Phase 


Entry Point — BEGIN 


$AU009 


Builds Indicator Table of first H-* AUTO indicators. . 
Checks for H-* AUTO lines; if found 

Checks for D/T-* AUTO lines; if found § 

Puts non H- or D/T-*AUTO specs to $WORK. 

Checks for errors in Output specs; if found 

Source statements from $SOURCE. 


Source program to $WORK. 


Error notes to listing. 


Create Source Program as Input to the RPG 1! Compiler 


Phase 


Entry Point — BEGIN 


Formats generated source and places it on $SOURCE. 


Checks if source statements are to be punched and/or 
cataloged; if not iim a a 


RPG II source and generated statements from $SOURCE 


(if Phase 9 was called by Phase 2) or from $WORK (if 
Phase 9 was called by Phase 8). 


lf Phase 9 was called by Phase 2, RPG !I source 
program to $WORK, then copied to $SOURCE; if 
Phase 9 was called by Phase 8, source program 
directly to $SOURCE. 


$AU00A Punch and/or Catalog Generated Code Phase 


Entry Point — BEGIN 


Creates punched deck of generated source to statements 


Catalogs generated source statements to the source 
library 


=> Generated RPG I! source program from $SOURCE. 


<r @ 


$AU00B 


Punched and interpreted deck of generated source {if 
‘P’ coded in column 7 of ‘U’ Specification). 
Generated source statements cataloged in source 
library (if ‘C’ coded in column 7 of ‘U’ specification). 


Punched and interpreted deck of generated source, and 


generated source cataloged (if ‘B’ coded in cotumn 7 
of ‘U’ specification). 


Print Message Text and Call Compiler Phase 


Entry Point — BEGIN 


+ 


Checks for errors, and lists the message text for the 
note number. Message text is contained in phases 
$AUOOF, SAUO0OG, and $AUOOH. 


Terminal diagnostic found? If yes 


<> XNOTES from the COMMON area. 


Re 


Message Text to listing. 


Call RPG 11 Compiler 





Terminate 


$AU00C Generate Output Specifications for H-“AUTO Lines 
Phase 


Entry Point - BEGIN 


e Reads H-“AUTO lines and generates required Output 
Specifications. 


>  H-*AUTO lines from Phase 8. 


Output Specifications generated to accommodate 
H-"“AUTO lines. 


Return to 
Phase $AU008 
$AU00D Generate Heading and Detail Output Specifications 
for D/T-* AUTO Lines Phase 





Entry Point — BEGIN 


® Reads D/T-* AUTO lines and generates required 
Output Specifications. 


=>  D/T-*AUTO lines from Phase 8. 


<= Output Specifications generated to accommodate 
D/T-* AUTO lines. 





$AUO0E Generate Total Specifications for D/T-*AUTO Lines 
Phase. 


Entry Point — BEGIN 


e Reads D/T-*AUTO lines and generates required total 
specifications. , 


‘>  D/T-*AUTO lines from Phase 8. 
<r 


Total specifications generated to accommodate 
D/T-* AUTO lines. 


Return to Phase $AU008 


Message Text Phase 
(non-executable code only) 
Message text for error notes 1-28 


$AU00G = Message Text Phase 
(non-executable code only) 
Message text for error notes 29-56 


~$AUOOH Message Text Phase 
(non-executable code only) 
Message text for error notes 57-79 





Note: Three interphase contro! routines are used by 
each of the phases of the RPG {| Auto Report 
Feature: 


XDSKIO — Disk I/O routine 
XPRINT — Print routine 
XFETCH — Fetch routine 


Appendix B: Internal Operation of the Auto Report Feature 93 


Appendix C: 


In addition to the note number and the message text, this 
appendix contains the following information for each 
diagnostic message: 


1. |Anumber, identifying the phase (or phases) of the 
Auto Report Feature that generates the message. 


2. An explanation, where possible, of the specific con- 
dition or error that caused the message to be generated. 


To locate a functional description of the phase that gen- 
erated the message, find the phase name in Appendix B 
that corresponds to the number given with the message 
text. (The identifying number 1 corresponds to Phase 
$AUTO, 2 corresponds to $AU002, 3 corresponds to 
$AU003, etc.) 


The following statements, used in the diagnostic messages, 
require additional explanation: 


PROGRAM IS TERMINATED — This statement 
appears in the message when the error is severe and 
Auto Report will not complete the generation of an 
RPG II source program. When this statement does 
not appear in the message text, the message is a warn- 
ing. Auto Report assumes an entry, if necessary, for 
warning errors. 


SPEC IS DROPPED — This statement means that the 
specification containing the error will not be used in 
generating an RPG II source program. 


Note: Phase 
001 1 
002 2 
003 2 
004 1 


Diagnostic Messages 


Message and Explanation 


SOURCE PROGRAM IS MISSING. 
PROGRAM IS TERMINATED. 


/* or ** was encountered as the first 
record in the source program. 


RPG II CONTROL CARD, H SPEC, IS 
MISSING. A CONTROL CARD WITH 
BLANK ENTRIES IS CREATED. 


_ H specification was not present in the © 


source file or in the source library 
member. 


SOURCE PROGRAM CONTAINS MORE 
THAN ONE RPG II CONTROL CARD, 
H SPEC. ALL BUT THE FIRST ARE 
DROPPED. 


Multiple RPG II control cards in the 
source program. Copied member may 
contain a control card. 


DUPLICATE FILENAMES ARE PRE- 
SENT ON THE FILE DESCRIPTION 
SPECS READ FROM THE SOURCE 
FILE. DUPLICATE IS DROPPED. 


The source file can contain only one 


file description specification for a file- 
name. 
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Note 


005 


006 


007 


96 


Phase 


Message and Explanation Note Phase 
REQUESTED LIBRARY MEMBER CAN- 


NOT BE FOUND. SPEC IS DROPPED. 


008 = 1 
Requested library member not found 
because: 

1. Wrong name used for member 

2. Wrong pack specified 

3. Wrong pack mounted 

4. No records in the member 

Drop the /COPY. 

DUPLICATE FILENAMES ARE PRE- 
SENT ON THE FILE DESCRIPTION 
SPECS READ FROM THE SOURCE 


LIBRARY MEMBER. DUPLICATE IS 
DROPPED. 


009 3 


The source library member can contain 
only one file description specification for 
a filename. The error occurred because: 


1. One source library member con- 
tains two file description specifica- 
tions for the same filename, or | 


2. More than one source library mem- 
ber has file description specifications 
for the same filename. 

TABLE AREA PROVIDED FOR INPUT | 910 2 

FIELD OVERRIDES EXCEEDED. 

OVERRIDE FUNCTION IS DISCON- 

TINUED FOR THIS /COPY. 


The number of input field modifier state- 
ments following a /COPY exceeds avail- 
able space in the table. Increasing the 
amount of main storage available to the O11 S 
Auto Report Feature program will allow 
use of more fields. Those fields which 
could be overridden will be added to the 
file. Therefore, it is possible to have in- 
valid specifications in the generated pro- 
gram. Auto Report always handles at 
least 20 overrides. Place override state- 
ments first followed by input fields to 

be added to the copied specifications to 
allow all table space to be used for over- 
ride statements. 


Message and Explanation 


INVALID RPG II SPEC TYPE. SPEC IS 
DROPPED. 


The error occurred for one of the follow- 
ing reasons: 


1. Position 6 does not contain an H, 
F, E, LT, I, C, or O. 


2: Position 7 does not contain an 
asterisk. 


3. | Comment appears on an H spec. 


4. | /COPY appears on an H spec (the 
[COPY is handled correctly). 


INVALID OR UNDEFINED FILE FOR 
*AUTO LINES. PROGRAM IS TERM- 
INATED. 


Error occurred because of one of the 
following: 


1. *AUTO file is not a printer or line 
| counter file. 


2. File description specification for 
*AUTO file is missing. 


3. | Names on file description specifi- 
cation and *AUTO file do not 
match. 


TABLE AREA FOR FIELD NAMES HAS 
BEEN EXCEEDED. SPEC IS DROPPED. 


Each field used is placed into a table. The 
table has been filled. Increase the amount 
of main storage available to Auto Report 
Feature to increase the table space. 


TABLE AREA PROVIDED FOR FIELD 
NAMES EXCEEDED. NON-UNIQUE 
FIELD NAMES MAY BE GENERATED. 


Generated field names which end in 1-9 
or R are added to the field name table. 
To avoid duplicate names do not use field 
names which end in 1-9 or R. 


Note 


012 


013 


014 


O15 


016 


Phase 


7 


4,5 


4,5 


2,A50 


Message and Explanation 


GENERATED TOTAL FIELD PRE- 
VIOUSLY DEFINED WITH DIFFERENT 


ATTRIBUTES. PREVIOUS DEFINITION 


IS USED. 


The generated total field was previously 
defined with either a different field length 


or a different number of decimal positions. 


First definition is used. Both the total 
field and the generated field name are 
printed with the error note number. 


*AUTO PREVIOUSLY USED FOR A 
DIFFERENT FILE. DROP ALL SPECS 
TO NEXT RECORD TYPE. 


*AUTO can be specified for only one 
file. 


POSITIONS 7-22 ARE NOT BLANK ON 
OUTPUT FIELD SPEC. BLANKS ARE 
ASSUMED. | | 


Positions 7-22 of output field specifica- 
tions must be blank. 


INVALID INDICATOR. BLANKS ARE 
ASSUMED. 


Positions 24-25, 27-28 or 30-31 are not 
01-99, LO-L9, MR, 1P, H1-H9, 0A-0G, 
OV or blank. Positions 23, 26 or 29 are 
not N or blank. The invalid indicator is 
printed with the note number. 


INVALID FIELD NAME. SPEC IS 
DROPPED. 


The field name is invalid for one of these 
reasons: 


1. Field name not found. 

2. Field name not defined. 

3. Array index with blank after the 
comma, or a comma as the first 


character. 


Column headings for the field are also 
dropped. 


Note 


017 


018 


019 


020 


— 021 


022 


023 


024 


Phase 


4,5 


4,5 


4,5 


Message and Explanation 


INVALID ENTRY IN POSITION 38 
AND/OR 44. BLANKS ARE 


_ ASSUMED. 


Position 38 and position 44 must be 
blank for alphameric fields. . 


INVALID ENTRY IN POSITION 39. 
BLANK IS ASSUMED. 


Position 39 was not a B or blank for any 


_ field on a H-*AUTO line. 


INVALID ENTRY IN POSITIONS 40-43. 
BLANKS ARE ASSUMED. 


End position cannot be specified on 
field specifications in an H-*AUTO line. 


INVALID ENTRY IN POSITIONS 45-70. 
BLANKS ARE ASSUMED. 


A literal or edit word cannot be specified 
with an alphameric field. 


FIELD NAME WILL BE CONDITIONED 
BY THE INDICATOR N1P. 


Field name is used and the H-*AUTO line 
is unconditioned. 


INVALID EDIT CODE, POSITION 38. 
BLANK IS ASSUMED. 


Position 38 is not one of the following 
valid edit codes: A, B, C, D, J, K, L, M, 
1,2, 3, 4, X,-Y, or Z. 


INVALID ENTRY IN POSITION 44. 
BLANK IS ASSUMED. 


Position 44 is not blank for a numeric 
field. 


CONDITIONING INDICATORS IN 
POSITIONS 23-31 ARE NOT BLANK 
FOR A TOTALING FIELD, A IN 
POSITION 39, ON A T *AUTO LINE. 
BLANKS ARE ASSUMED. 


The indicators specified on a totaling 


field in a T *AUTO specification are not 
used when generating specifications. 
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Note 


025 


026 


027 


028 


98 


Phase 


4,5 


4,5 


4,5 


Message and Explanation Note Phase 


LITERAL IN POSITIONS 45-70 HAS 029 
APOSTROPHE MISSING AT BEGIN- 

NING OR END. BLANKS ARE 

ASSUMED IN POSITIONS 45-70. 


4,5 


The error occurred for one of these 
reasons: 


1. Position 45 is not an apostrophe, 
but 45-70 are not blank. 
030 4,5 
2. Position 45 is an apostrophe, but 


there are no apostrophes in 46-70. 


3. There is an embedded single apos- 
trophe (not paired) in positions 
46-69. 
031 5 
4. Positions through position 70 are 
not blank after last apostrophe. 


This specification is dropped if no field 
name is present. Otherwise, positions 
45-70 are assumed blank. 032 5 
UNABLE TO DETERMINE IF FIELD 

OR RECORD SPEC. SPEC IS DROPPED. 


Position 15 is blank indicating it is a field 
specification but positions 32-37 and 
45-70 are also blank. This specification 
and its possible column headings are 
dropped. 


033 6 


POSITIONS 38-44 ARE NOT BLANK 
WHEN A LITERAL IS SPECIFIED. 
BLANKS ARE ASSUMED. 


Positions 38-44 must be blank when a 
literal is specified on a H-*AUTO line. 


POSITIONS 7-13 ARE NOT BLANK ON 


AND/OR SPEC. BLANKS ARE | 
ASSUMED. 


Positions 7-13 are not blank when 14-16 
contain AND or 14-15 contain OR. 


Message and Explanation 


SPACE AND/OR SKIP ENTRIES IN 
POSITIONS 17-22 ARE INVALID. 
BLANKS ARE ASSUMED ONLY FOR 
INVALID ENTRY. 


Positions 17 and/or 18 do not contain 
0-3 or blank, or positions 19-20, 21-22 | 
do not contain 01-99, AO-A9, BO-B9, or 
b1-b9. 

POSITIONS 37-70 NOT BLANK ON 
RECORD SPEC. BLANKS ARE 
ASSUMED. 


Positions 37-70 must be blank for record 


_ types. 


INVALID ENTRY IN POSITION 38. 
BLANK IS ASSUMED. 


Edit code cannot be specified for a 
literal on D/T-* AUTO lines. 


END POSITION IN POSITIONS 40-43 
IS INVALID. BLANKS ARE 
ASSUMED. 


Error occurred because either positions 
40-43 contain invalid numbers or the end 
position exceeds the record length. 


GENERATED FIELD LENGTH EXCEEDS 
15. 15 IS ASSUMED. 


Two positions have been added toa field AG 
specified with an A in position 39 in 


order to generate a total field. The length 


of the generated total field exceeds 15. 


Note. 


034 


035 


036 


Phase 


3 


4,5 


‘DEFINITION IS NOT USED. 


Message and Explanation Note Phase 


230 


DEFINITION OF FIELD IS INVALID. 037 


This error occurred for one of these 
reasons: . 


1. Length equals 0. 


2. Length greater than 15 for a numeric 
field. . 


3. Length entry is non-numeric. 
4. Length less than decimal position. 


5. Decimal position entry is non- 
numeric. 
6. Position 43 is not P, B, or blank. 038 5 


ARRAY NAME SPECIFIED ON *AUTO 
LINE. SPEC IS DROPPED. 


This error occured for one of these 

reasons: , 

| : 039 5 

1... The field name in this H-*AUTO 
or D/T-*AUTO spec is an array 
name. 


2. Agenerated name for this D/T- 
* AUTO spec total field is an array 
name. In this case, the specification 
is dropped along with all its column 
headings. Both the total field name 
and the generated field array name 
are printed with the note number. 


040 > 


RECORD LENGTH FOR FILE WITH 
*AUTO LINES IS INVALID. ASSUME 
RECORD LENGTH OF 96. 


This error occurred for one of these 
reasons: 

041 5 
1. Record length is 0. 


- 2. Record length is non-numeric. 


3. Record length is blank. 


Message and Explanation 


TOTALING, A IN POSITION 39, SPECI- 
FIED FOR AN INVALID FIELD NAME. 
SPEC IS DROPPED. 


Position 39 of a D/T-*AUTO spec field 
has an A, yet the field name is: 


1. Blank. 

2. A table name. 

3. An indexed array name. 
4. A Page field. 


Drop the specification and all its column 
headings. 


TOTALING, A IN POSITION 39, SPECI- 
FIED FOR AN ALPHAMERIC FIELD. 
ASSUME POSITION 39 IS BLANK. 


D/T-*AUTO line, field name is alphameric 
and position 39 is an A. 


POSITIONS 7-38 NOT BLANK FOR A: 
COLUMN HEADING. BLANKS ARE 
ASSUMED. 


Position 39 is a C, positions 7-38 must be 
blank. 


INVALID ENTRY IN POSITION 39. 
BLANK IS ASSUMED. 


Error occurred for one of these reasons: 


oT Position 39 is B but Field Name is - 


blank. 

2. Field specification of a D/T-*AUTO 
line and position 39 is not A, B, C, 
1-9, R or blank. 


COLUMN HEADING, C IN POSITION 


- 39, SPECIFIED BUT LITERAL NOT 


PRESENT. SPEC IS DROPPED. 


Position 39 is a C and positions 45-70 
are blank. . 
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Note 


042 


043 


044 


045 


046 


047 


048° 


100 


Phase 


4,5 


4,5 


4,5 


Message and Explanation Note Phase 
EDIT CODE AND EDIT WORD ARE 049 6 
BOTH SPECIFIED. ‘EDIT WORD IS 


DROPPED. 


Edit Code in position 38 and edit word © 
in positions 45-70 are both specified. 
Positions 45-70 are assumed blank. 


050 5 
EDITING SPECIFIED FOR AN ALPHA- 


MERIC FIELD. ASSUME BLANKS IN 
POSITIONS 38 AND 45-70. 


Positions 38 and 45-70 must ve blank for 

alphameric fields. | 
051 6 

INVALID ENTRY IN POSITION 16. | 

BLANK IS ASSUMED. 


Position 16 is not F or blank. 


AND/OR SPEC OUT OF SEQUENCE. 
SPEC IS DROPPED. 


The AND/OR (positions 14-16) does not 
follow a record specification. 


MULTIPLE D/T *AUTO LINES SPECI- 052 5 
FIED IN THE PROGRAM. DROP ALL 
SPECS TO NEXT RECORD TYPE. 


Only one D/T-* AUTO line is allowed in 
the program. 


COLUMN HEADING SPEC OUT OF 
ORDER. SPEC IS DROPPED. 


Field spec with a C in position 39 does 


‘not follow a specification with a C, B, A, 


or blank (with a field name in 32-37) in 
position 39. 


END POSITION INVALID FOR THIS 
SPEC TYPE. ASSUMEBLANKSIN 953. s4,5 
POSITIONS 40-43. 


End position cannot be specified for 
these specifications if: 


1. Cin position 39, or 


2. 1-9 or Rin position 39. 


Message and Explanation 


SPECIFIED END POSITION IS LESS 
THAN FIELD OR LITERAL LENGTH. 
ASSUME BLANKS IN POSITIONS 40-43. 


End positions (40-43) must be at least 
as large as the field or literal. 


MORE THAN THREE COLUMN HEAD- 


__ ING LINES SPECIFIED. SPEC IS 


DROPPED. 


Only two consecutive specs may have a 
C in position 39. 


NO VALID TOTALING FIELDS SPECI- 
FIED. ONLY ONE D/T OUTPUT LINE 
IS GENERATED. TOTAL LINE CON- 
STANTS, 1-9, R IN POSITION 39, ARE 
DROPPED. 


Position 39 of D/T-*AUTO line does not 
contain an A. Therefore no automatic 
totaling is done and no total lines are 
generated. 


1-9, RIS INVALID IN POSITION 39. 
SPEC IS DROPPED. 


Position 39 contains 1-9, but the associ- 
ated level indicator (L1-L9) was not de- 
fined on input specifications (59-60), or 
this is a T-*AUTO line and the lowest 

level indicator used on the T-*AUTO is - 


of greater or equal level. For example, if 


2 was specified in position 39, then L2 
must be defined as a level indicator on 
the input specifications, and if this is a 


_ T-*AUTO line, the lowest control level 


indicator present on the T-*AUTO line 
must be LI. 


INDICATORS NOT ALLOWED ON THIS 
SPEC TYPE. BLANKS ARE ASSUMED 
IN POSITIONS 23-31. 


Indicators are not allowed on: 


1. Field descriptions following an H- 
*AUTO specification. 


2. Field description with position 39 
containing a 1-9 or R following a 
D/T-* AUTO line. 


Note 


054 


055 


056 


Phase 


% 


All 
Phases 


Message and Explanation 


SPECIFIED END POSITION CAUSES 
OVERLAYS OF FIELDS OR LITERALS. 
BLANKS ARE ASSUMED IN POSITIONS 
40-43. 


The length of the line up to this specifica- 
tion plus the length of the field/literal 

of this specification is greater than the 
specified end position. 


I/O ERROR OCCURRED. PROGRAM 
IS TERMINATED. 


The additional information printed 
with the error describes the problem. 


41 — Permanent disk error. 


44W — The number of tracks allocated 
for $WORK is too small. 


44S — The number of tracks allocated 
for $SOURCE is too small. 


~ For 44 errors, increase size of the work 


file and rerun. 


SOURCE LIBRARY MEMBER NAME 
IS INVALID. ENTRY IS DROPPED. | 


This message applies to both the U spec 


and /COPY. The error occurred for one 


of these reasons: 


1. Pack name not R1, R2, F1, or F2. 


2. Comma is missing or not left justi- 


fied against pack name. 


3. The member name exceeds six 
characters. | 


4. |The member name is missing, it 
does not exist in the library, orit . 
is incorrectly specified. 


5. | Embedded blank in the member 
name. 


Note 


057 


058 


059 


060 


061 


062 


063 


Phase 


4,5 


Message and Explanation 


TOTALING SPECIFIED MORE THAN 
ONCE FOR THIS FIELD NAME. 
SPEC IS DROPPED. 


Field name specified with an A in posi- 
tion 39 more than once. Specification is 
dropped. | 


MAXIMUM NUMBER OF H *AUTO 
LINES EXCEEDED. DROP ALL SPECS 
TO NEXT RECORD TYPE. 


More than five H-*AUTO lines specified. 
Drop all excess H-*AUTO lines. 


INVALID ENTRY IN POSITION 7 QF 
U SPEC. BLANK IS ASSUMED. 


Valid entries are P, C, B or blank. The 
generated source deck is not punched. | 


LIBRARY NAME IN POSITIONS 8-16 IS 
NOT BLANK. BLANKS ARE 
ASSUMED. 


These must be blank if position 7 is P or 
blank. 7 


INVALID ENTRY IN DATE SUPPRESS, 
POSITION 27. BLANK IS ASSUMED. 


Valid entries are N and Blank. Page/date 
is not suppressed. 


INVALID ENTRY IN ASTERISK 
SUPPRESS, POSITION 28. BLANK IS 
ASSUMED. 


Valid entries are N and blank. Asterisks 
will appear. 


AND/OR SPEC IS INVALID. SPEC IS 
DROPPED. 


This error occurred for one of these 
reasons: 


1. Main record specification doesn’t 
have conditioning indicators. 


2. AND/OR spec has no indicators. 
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Note 


064 


065 


066 


068 


102 


Phase 


Message and Explanation Note Phase 
D/T *AUTO LINE OVERFLOW WILL 
OCCUR WITH GENERATION OF 
ASTERISK INDICATION. ALL 


ASTERISKS ARE SUPPRESSED. 


069 6 


One or more of the asterisks would cause 
overflow of the defined printer record 
length. 


POSITIONS FOLLOWING LIBRARY 
MEMBER NAME ARE NOT BLANK. 
BLANKS ARE ASSUMED. 


Positions 22-49 of /COPY statement or 
positions 17-26 or 29-74 of the U spec 
are not blank. This may be caused by 

an imbedded blank in the name. In this 
case characters up to the blank are con- 
sidered the name. The rest of the charac- 
ters are dropped. 
070 C,D 
MORE THAN 19 AND/OR LINES CON- 

DITION AN *AUTO LINE. THIS AND 


~ ALL FOLLOWING AND/OR SPECS ARE 


DROPPED. 


The RPG II language does not permit over 
19 AND/OR lines on output specifications. — 


71 2 


NUMBER OF FILE DESCRIPTION 
SPECS EXCEEDS THE MAXIMUM 
ALLOWED. SPEC IS DROPPED. 
| 072 8 
The maximum number of file description 
specifications allowed is 20. 


073 A 


Message and Explanation 


AUTOMATIC TOTALING OF THIS 
FIELD RESULTS IN GENERATED 
FIELD NAME CONFLICTS. ASSUME 
POSITION 39 BLANK. 


This error occurred for one of these 
reasons: 


1. A field name that was generated 
' for totaling was previously defined 
as alphameric. 


2. Another field name, which is a 
duplicate through five characters 
to this field name, appears in the pro- 
gram and is used as a totaling field. 


Both names are printed. This may cause 
incorrect format of the output line. 


GENERATED LINE IS TOO LONG. 
EXCESS IS DROPPED. 


Either the length of H-*AUTO line 
exceeds the record length or the length 
of D/T-*AUTO line exceeds twice the 
record length, depending on which is 
specified. 


INVALID OUTPUT RECORD TYPE IN 
POSITION 15. SPEC IS DROPPED. 


Entry must be either H, D, T, or E. 


PAGE FIELD NOT AVAILABLE FOR 
USE IN PAGE HEADING. NO PAGE 
NUMBERING WILL OCCUR. 


All the page fields have been used in the 
program. Format of output line maybe 
incorrect. | 


ERROR OCCURRED WHEN ATTEMPT- 
ING TO CATALOG PROGRAM IN 
SOURCE LIBRARY. PROGRAM IS 
NOT CATALOGED. 


This error occurred for one of these 
reasons: 


1. Library is full. 


2. Invalid operation (library may not 
be allocated). 


Note 


074 


075 


076 


077 


Phase 


Message and Explanation Phase Note 
DUPLICATE NAME IN SOURCE LI- 
BRARY. THIS PROGRAM REPLACES 


PREVIOUS MEMBER. 


078 ] 


PERMANENT I/O ERROR WHILE 
PUNCHING GENERATED SOURCE 
PROGRAM ON MFCU. PUNCHING IS 
DISCONTINUED. 


GENERATED END POSITION FOR 
TOTAL LINE CONSTANT, 1-9 OR R IN 
POSITION 39, EXCEEDS RECORD 
LENGTH. DROP ALL TOTAL LINE 
CONSTANTS. 


079 i 


This error occurred for one of these 
reasons: 


1. The length of the constants for a 
particular level exceeds the record 
length. 


2. The first A-type field encountered 
has a beginning position greater 
than the record length. 


LEVEL INDICATOR USED ON T *AUTO 
LINE IS UNDEFINED. INDICATOR IS 
DROPPED. 


A control level indicator used on a T- 

* AUTO line must be defined in positions 
59-60 of the input field specifications. 
The invalid indicator will be printed with 
the error note and no total lines will be 
generated. | 


Message and Explanation 


INVALID ENTRY IN POSITION 7 OF 
U SPECIFICATION. ASSUME NO 


~ PUNCHING. 


Model 10 or 12: If both punching and 
cataloging are requested (B entry) at least 
an 8K partition must be available. Model 
6: Punching of a generated source deck is 
not supported. 


D *AUTO IS CONDITIONED BY MORE 
THAN 7 AND/OR LINES. ONLY THE 
FIRST 7 AND/OR LINES WILL CONDI- 
TION THE GENERATED CALCULA- 
TION. | 


The indicators which condition a D-*AUTO 
line are used to condition the generated 
EXSR calculation specification needed for 
total rolling. RPG II will only allow 


seven lines of AND/OR conditioning 


indicators in calculations. 
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104 


& (ampersand, and sign) 64-65 


SAUPL 36 
SAUSPA 37 
SAUSPB 37 


$AUSP1, $AUSP2 (sample pregram source library 
members) 28 
$AUTO, $AU002-$AU00H (Auto Report Phase) 90 
* (asterisk) indication of total lines 42 
* AUTO (32-37) 
entry on detail or total specification 48 
entry on page heading specification 45 
* AUTO field description specifications 
*AUTO output function 
A entry in position 39 11, 50 
blank or B entry in position 39 11,49 
-Centry in position 39 15, 54 
1-9 or R entry in position 39 15,55 
*AUTO page headings function 45 
*AUTO output function 
accumulating totals 11,47, 50 
resetting total fields to zero 53 
asterisk indication 53 
column headings 15,50, 53 
detail printing 47 
entering an end position, considerations (see report format) 
examples 11-23 
group printing 56 
field description specifications (see field description) 
field or literal on generated total line 55 
generated edit codes (see also edit codes) 50,53 
generated end positions (see report format) 
generated RPG II specifications 67,4 
generated total fields 51 : 
restrictions in naming fields 52 
group printing 56,47, 50 
how to use (examples) 8 
indicators, output 49 
restriction in use of NIP 48 
introduction 2 
number of files allowed 43 
record description specifications 47 
spacing and skipping (see also report format) 48 
specifications 47 
total rolling 11,47, 50 
*AUTO page headings function 44 
centering headings (see report format) 
conditioning printing on first page 46, 10 
date 44 
suppressing the date 42 
editing 46 
examples 8-23, 45 
field description specifications 45 
format of page heading 75 
generated RPG II specifications 67,4 
how to use (examples) 8 
indicators 10,44 
introduction 1 
number of files allowed 43 
number of heading lines allowed 44 
page number 44 
suppressing the page number 42 
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placement of fields and literals in heading (see report format) 
record description specifications 44 
reformatting *AUTO page headings 76 
spacing and skipping 10,44, 75 
with normal RPG II heading specifications 44 

*AUTO output specifications 47 

*AUTO page headings specifications 44 

*AUTO specifications 43 

output devices allowed 43 

* suppress (28) 42 

/COPY statement 
cataloging specifications in the source library 61 
comments 61 | 
examples 19, 29, 62 
file description modifier statement 61 
file description continuation specifications 64 
format 61 
input modifier statement 23, 64 
member name 61 | 
modifying copied specifications 23, 65 
order of specifications included 70, 71 
placement in Auto Report source program 21,61 
purpose 61 
sorting of specifications by Auto Report 21,70 
specifications 61 


AS$$SUM subroutine 70 
accumulating totals (rolling totals) 
examples 11-23 
specifications 50 
A entry in position 39 (see field description specifications) 
alphameric fields 
centering under column heading 77 
altering generated RPG II specifications 76 | 
ampersand (&), use in /COPY modifier statements 61, 64 
AND/OR specifications (output indicators) 
*AUTO output specifications 48 
* AUTO page heading specifications 44 
appendix A: programming aids and tips 83 
appendix B: internal operation of the Auto Report Feature 89 
appendix C: diagnostic messages 93 
arrays, order in generated program (see also table/array) 70 
restriction 73 | 
array name (indexed) 
as field name in *AUTO page headings 45 
as field name in *AUTO output 49 
array records, format in generated RPG II program 67 
asterisk (*) indication on totals 
example 13 
option specification entry 42 
placement of asterisks 53 
suppressing 42 
asterisk protection, entry in positions 45-70 56_ 
AUTO OCLCALL statement 37,79 
AUTO library procedure 79 
Auto Report Copy specifications 61 
Auto Report Feature 
distribution of 79 
error messages 93 
functions 1 
input 3 
installation 79 
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introduction 1 
listing 32 
method of operation 3 
operational diagram 5,90 
output 5 
purpose l 
sample program 25 
specification sheet 2° 
Auto Report functions (see also specific function) 
*AUTO output 
examples 11-23 
specifications 47 
*AUTO page headings 
examples 8-23 
specifications 44 
/COPY 
examples 19-23 
specifications 61 
Auto Report installation 79 - 
Auto Report listing (see LOG operation control statement, 
sample program) . 
Auto Report Option Specification (see option specifications) 
Auto Report output (see “AUTO output function) 
Auto Report page headings (see *AUTO page headings function) 
Auto Report Specifications (coding sheet) 2,41 


B entry in position 39 (see field description specifications) 
blank after (39) 
*AUTO output 50 . 
*AUTO page headings 46 
generated for total fields 53 
blank entry in position 39 (see field description) 
body of the report (report format) 77 


calculations 
generated by Auto Report 70 
order in generated program 70-71 
using RPG II calculations in an Auto = program 16-17 
cataloged RPG II specifications 
example of /COPY function 19-23 
sample program 28 
specifications for /COPY function 61 
cataloging the generated source program 42 
compiling cataloged source program 42 
deleting cataloged source program 42 
naming cataloged source program 42 
Option Specification entry (Source) 41 
replacing the cataloged source program 42 
writing or punching the cataloged source program 42 
cataloging specifications for /COPY 61 — 
centering columns and column headings (see also report format 
50 
second and third column headings 54 
_ centering the report (see report format) 
C entry in position 39 
example (how to use) 14, 54 
specifications for field description 54 
column headings 
additional (continued) 14-15, 54 
following field description with A in position 39 53 
following field description with blank or B in 
position 39 50 
centering 77 
second and third column headings 54 
effect of ouput indicators 48, 49 
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examples (how to use) . 8 
printing over column containing only totals 84 
printing over two or more fields 83 
spacing and skipping 75 
comments 
/COPY statement 61 
comment statements (* in position 7) 
order in generated program 71 
COMPILE statement (OCL considerations) 80 
copying the Option Specification 34 
compiling a cataloged source program 42 
compiling an Auto Report program 
operating considerations 79 
OCL considerations 79 
compiling and executing the sample program 
Model 10 and model i5 37 | 
Model 6 38 | 
console (restriction on *AUTO specifications) 43 . 
constant (see literal) 
constant or edit word (45-70), entry on output field description 
*AUTO page heading 46 
* AUTO output (A in position 39) 53 
*AUTO output (blank or B in position 39) 50 
*AUTO output (C in position 39) 54 
* AUTO output (1-9 or R in position 39) 56 


| continued column headings 14-15, 54 


continued specification, File Description 64 
control level indicators 
adding to copied input specifications 22 
determining levels of generated totals 12 
effect in group printing 56 
Copy function (see also [COPY statement) 
cataloging specifications in the source library 61 
generated specifications 67 
how to use (examples) 19-23 
introduction 2 
modifying (overriding) copied specifications 23, 61 
file description specifications 61 
input specifications 64 
placement of copied specifications in the generated source 
program 59 
setting copied specifications to blank (&) 64 
sorting copied specifications 64 
specifications that can be cataloged and copied 61 
creating a source library member 61 
cross-total (example) 16 


D-*AUTO specification (see *AUTO output function) 
date generated for *AUTO page headings 44 

format of page heading 44,75 | 

suppressing the date 42 | 
date suppress (27), Auto Report Option Specification 42 
decimal positions of generated total fields 52 


_ detail lines 


format of report 77 
spacing and skipping 48, 75,77 
detail output specifications (see field description, record 
description specifications) 
detail printing 
effect of blank after (B in position 39) 50 
conditioning of generated calculation subroutine 70 
detail report 
examples 8-23 
specifications 47 
diagnostic messages 93 
message when source program cannot be generated 79 


disk summary file 57 
distribution of Auto Report Feature program 79 
duplicate field names on /COPY modifier statement 64 


edit codes (38) 
*AUTO output field description entry 
Ain position 39 53 
generated K edit code 11,50 
blank or B in position 39 50 
generated K editcode 11,53 
1-9 or Rin position 39 56 
relation to position 45-70 56 
*AUTO page heading field description entry 46 
date fields 46 
generated in sample program 30 
end position in output record (40-43) 
considerations for entering an end position 75 
generated by Auto Report 75 
specification entry 50, 53 
error messages 93 
executing the sample program 
Model 10 37 
Model6 38 


fetch overflow (16) 
entry on *AUTO output specification 48 
field description (A in position 39) 50 
accumulating (rolling) totals 50 
asterisk indication 53 | 
conditioning of generated total specifications 51 
considerations using generated field names in RPG II 
specifications 52 
_ constant (45-70) 53 
edit codes (38) 53 
end position in output record (40-43) 53 
field name (32-37) 52 
generated calculations 70 
generated total fields 51 
group printing 50 
how to use (examples) 11 
output indicators (23-31) 52 
position 39 53 
' quick-reference chart 83 
resetting total fields to zero 53 
restrictions in naming fields 52 
total rolling 50,52 
definition 50 | 
field description (blank or B in position 39) 49 
blank after (39) 50 
constant (45-70) S50 
edit codes (38) 50 
end position in output record (40-43) 50 
considerations for entering (see report format) 
field name (32-37) 49 
how to use (examples) 11 | 
output indicators (23-31) 49 
effect on column headings 49 
when the field is printed 49 
_ zeroing fields 50 
field description (C in position 39) 54 
constant (45-70) 54 
how to use (examples) 14 
position 39 64 
quick-reference chart 83 
field description (1-9 or R in position 39) 55 


constant or edit word (45-70) 56 
group printing 56 
how to use (example) 14 
position 39 56 
quick-reference chart 83 
field description specifications 
*AUTO output function (see separate listings under field 
description) | 
* AUTO page headings function 45 
blank after (39) 46 
constant or edit word (45-70) 46. 
edit codes (38) 46 
field name (32-37) 45 
placement of fields in title line (see report format) 
definition 43 
output indicators on (example) 15 
field name (32-37) 
*AUTO output entry 
Ain position 39 52 
blank or B in position 39 49 
restriction (field names ending in 1-9 or R) 52 
using generated field names in RPG II specifications 52 
table/array namesas 49 
1-9 or R in position 39 55 
*AUTO page headingsentry 45 
conditioning of first page printing 46 
field names generated by Auto Report 51 
fields and literals on total lines 55 | 
fields in *AUTO page headings 16, 76 
file name (7-14) 
*AUTO outputentry 47 
*AUTO page headings entry 44 
floating dollar sign 56 
format of the Auto Report listing 32 
format of the generated report (see report format) 
format of the generated specifications 67 
form type (6) 
Option specification entry 41 


generated calculations 70 
generated output specifications 70 
generated RPG II program, the 67 
altering the generated specifications 76 
calculations 70 
date 44 
edit codes 11 
field names 51 
format of generated specifications 67 
group printing 70 
modifying the punched source program 41 
order of specifications 67, 70 
output specifications 70 
page number 44 
punching incards 41 
reformatting *AUTO page headings 76 
sources of specifications 67 | 
stacker selection of punched deck 41 
subroutine (A$$SUM) 70 
total fields 51, 70 


' generated total fields 51 


length and decimal positions 52 
rules fornaming 51 
group indication 15 
group printing 56 
definition 56 
examples 57 
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field description (A in position 39) 50,53, 56 

field description (blank or B in position 39) 49 
effect of output indicators 49 

field description (1-9 or R in position 39) 55-56 

more than one record typein file 85 


halts 
compiling and executing the sample program 
Model 10 37 
Model 6 38 
operating considerations 79 
when replacing cataloged source library member 42 
when running sample program asecond time 37 
headings (see *AUTO page headings function, column headings, 
report format) 
how does Auto Report work? 2 
how to use RPGII Auto Report 7 


indication of total line 
asterisks 42 
field or literal (see field description, 1-9 or R in position 39) 
indicators, output (see output indicators) 
indicator, overflow 
conditioning page headings 10, 44 
input field modifier statements 64 
increasing the number 83 
input to the Auto Report Feature 2 
installation and maintenance 79 
number of object modules 79 
secondary storage requirements 79 
internal operation of Auto Report 89 
invalid field names 52 


K edit code 50,53 
Keyboard Source Entry program (Model 6) 
used in reformatting page headings 77 


levels of totals 12 

library maintenance program 61 

library space required for Auto Report 79 

library, source (see [COPY statement) 

line 06 (starting print line for Auto Report) 10 

listing, Auto Report 
format 32 | 
LOG OCL statement 80 

literal (constant) 
on generated total line 14-17, 55 
order in *AUTO page heading 76 
printing only on first detail line 84 
spacing on detail line 77 

LOG OCL statement 80 

lowest level total line 56,75 

LR total line 14,50 

L1-L9 total line 14,50 


main storage required for Auto Report 79 
messages, diagnostic 93 
method of operation 
Auto Report Feature 3, 89 
modifier statements (/COPY function) 23 
input 64 
format 64 


108 


increasing the number 83 

number allowed 64 

ordering of 64 

with duplicate field names 64 
file description 61 ? 


order of 64 
restriction in use of filenames 64. 
tules 23 


modifying copied specifications 61 
modifying file description specifications 61 
modifying IBM-supplied library procedure 80 
modifying input field specifications 64 
modifying the punched source program 41 


~ 


numeric fields 
centering column headings 77 
editing 50 


object modules, number in Auto Report Feature 79 
obtaining the sample program 
Model 10 and model 15 35 
Model 6 37 
OCL considerations 80 
operating considerations 79 
operation control language considerations | 80 
operation of the Auto Report Feature 2, 89 
diagram 5,90 
Option specifications 
* suppress (28) 42 
assumptions for blank entries 41 
coding sheet 2 
copying by COMPILE statement. 34 
date suppress (27) 42 
default if not present 41 
form type (6) 41 
location in source program 41 
restriction with /COPY 41 
source (7) 41 
output function (see *AUTO output function) 
output of Auto Report 5 
OR specification (output indicators) 44,48 


_ order of generated specifications 70 


calculations 70 
comment statements 71 
included by /COPY 70 
output specifications 70 
restriction (tables and arrays) 71 
sorting by Auto Report 70 
output devices 43 
output indicators (23-31) 
*AUTO output specification 48 
field description (A in position 39) 52 
field description (blank or B in position 39) 15,49 
record description specifications 47 
*AUTO page headings specifications 10,44 
group printing 56 
in sample program 30 
restriction in use of NIP 48 
output specification entries for *AUTO output (chart) 101 
output specifications 
generated by Auto Report 70 
placement in generated program 70 
overflow indicator (conditioning page headings) 10 
overflow (overlap) of *AUTO print lines 77 
sample program 37 


overriding copied specifications 22 


PAGE fields, use by Auto Report 44 
page headings (see *AUTO page headings function) 
page number 44,75 
partition size 79 
phase structure of Auto Report 89 
placement of headings and fields 75 
printer record length shorter than reportlength 36 
program identification 
location in generated specifications 67 
programming aids and tips 83 
punching a deck (Model 10) 
cataloged source program 42 
generated source program 41 
operating considerations 79 
punching and cataloging 41 
to reformat page heading 77 


record description specification 
*AUTO output specifications 47 
*AUTO (32-37) 48 
fetch overflow (16) 48 
filename (7-14) 47 
output indicators (23-31) 48 
restriction inuse of NIP 48 
space/skip (17-22) 48 
type (15) 47 
*AUTO page headings specifications 44 
* AUTO (32-37) 45 
’ filename (7-14) 44 
output indicators (23-31) 44 
space/skip (17-22) 44 
type (15) 44 
definition 43 
record identification indicator on D-*AUTO specification 11 
reformatting *AUTO page headings 76 
R entry in position 39 14 
report format 
altering the generated program 76 
body of the report 77 
centering column headings 77 
centering page headings 75 
centering the report 75 
end position in output record 
entry on output sheet 50,53 
generated by Auto Report 75 
specified by programmer 75 
example 78 
page headings 75 
placement of headings and fields 75 
overflow (overlap) of print lines 77 
reformatting *AUTO page headings 76 
spacing and skipping 75 
detailline 77 
heading line 75 
specified by programmer 77 
resetting total fields to zero 53,70 
rolling totals 
field description entry (A in position 39) 50-53 
generated RPG II specifications 70 
RPG II source program (see source program) 
running the sample program 31 


sample program 25, 79 


Auto Report coding 28-31 

Auto Report listing 32 

cataloged specifications 28 

compiling and executing | 
Model 10 and Model 15 37 
Model6 38 

data 31 

edit codes generated 30 

executing 31 

job description 27 


obtaining 
Model 10 and Model15 36 
Model6 37 


operating procedures 31 

output indicator 30 

overflow of D/T-*AUTO print line 37 

report 35 

running asecond time 37 | 

source library members ($AUSP1, $AUSP2) 28 
sequence number (generated specifications) 67 
skipping (see space/skip) 
sorting copied specifigations 21, 61 
sorting of specifications by Auto Report 70 
source statement library name (8-16) 42 _ 
source (7), entry on Option specification 41 
source library 

cataloging specifications i in the source library 61 
source program 

generated by Auto Report 67 

modifying the punched source program 41 

punching the source program 

using Auto Report Option specification 41 

stacker selection of punched source deck 41] 
space/skip (17-22) 

*Auto output specification 48 

*Auto page heading specification 44 - 

default values 44 

spacing and skipping (report format) 75 

column headings 75 

detail lines 48, 75, 77 

examples 10, 13, 75 

generated by Auto Report 76 

lowest level total line 75 

page headings 10,44, 75 

specified by programmer 77 

total lines 48, 75 
stacker selection of punched source deck 41 
storage requirements of Auto Report 79 
subroutine generated by Auto Report (A$$SUM) 70 
summarizing data (see group printing) 
suppressing asterisks on totallines 15,53 
suppressing the date and page number 10, 44 
system considerations 79 


table/array 
as field name 
*AUTO output specifications 49 
* AUTO page headings specifications 45 
format in generated program 67 
order in generated program (restriction) 70 
total calculations, conditioning 70 
total fields generated by Auto Report 51 
decimal positions 52,70 
how generated 51 
length 13,52, 70 
tules for naming 51 
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same as previous field name 52 
when defined 70 
total indication information 77 
totaling fields using Auto Report (see field description, A in 
position 39) 
total lines 
asterisks 13,42 
levels of totals 12 
literal (constant) on totalline 14 
spacing and skipping 48,75 
total output specification 
type entry on output sheet 47 
total rolling | 
Auto Report specifications 47,50 
generated calculations 70 
how to code (examples) 11-23 
type (15) 
*AUTO output specification 47 
* AUTO page heading specification 44 


verifying installation of Auto Report 27 


zeroing (blanking) fields 
blank after 50 
generated output specifications 70 
group printing 53 " « 


1-9 or R in position 39 | 
*AUTO output field description 15,55 
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